REVISTA INDEPENDIENTE PARA USU ARIOS DEORDENADORES AMSTRAD 


ANOII N.° 73 


190 




7^ 


TRUCOS E IDEAS 
PARA HACER 
LO IMPOSIBLE 






% 


iLO 

ULTIMO 

EN SOFTWARE! 

LIGTHFORCE: 

LA VENGANZA DE REGULUS (CPC) 


- 




Las mejore* 
sugerencias- 
Los sccrctos ma> 
ocultos en Basic 




Maquma. 




INFOBYTES 

• Etiquetas en papel continuo 

• Lo mas nuevo en joysticks 

• No mas problemas con los cortes de luz 

• Mesa compacta para ordenadores 

• Y muchos mas accjrtTTTS^y complementos 
para tu Amstrad 




eO 


\a 


k 


I 


c «>V 

este m esa 
C ° ft Ac ViaCCl 

a 






co 


otn 1 


\tvcai 


cvte- 




























MICRO 


Anolll-N 20 


lW\L 

Solo para adictos 




350 Ptas. 


HOBBY PRESS 


FAIRLIGHT II 

El mapa, 
los pokes y 
todas 
las claves 
de un juego 
«superdifkil» 


GAUNTLET 

Te descubrimos 
los secretos 
de un clasico de las 
maquinas recreativas 




Anoin*Nu m er ±i 3 • 3 al 9 dcfebrero de 1987 • 7.90 M as. , 










Ano HI • Numero 73 * 3 al 9 defebrero de 1987 * 190ptas. (incluido 1VA). Canarias ISOptas. + lOptas. sobretasa aerrn. Ceutay Melilla, 180ptas. 


Director Editorial 
Jose 1. Gomez-Centurion 
Director Ejecutivo 
Jose M. a Diaz 
Redactor Jefe 
Juan Jose Martinez 
Africa Perez Tolosa (edicion), 
Diserio y maquetacion 
Rosa Maria Capitel, Jaime Gonzalez 
y Fernando Chaumel 
Colaboradores 

Eduardo Ruiz, Javier Barcelo, David 
Sopuerta, Robert Chatwin, Francisco 
Portalo, Pedro Sudon, Miguel 
Sepulveda, Francisco Martin, Jesus 
Alonso, Pedro S. Perez, Amalio 
Gomez, Alberto Suner 
Secretaria Redaccion 
Marisa Cogorro 
Fotografia 
Carlos Candel 
Chema Sacristan 
Ilustradores 
J. Igual, J. Pons, F. L. 
Frontan, J. Septien, Pejo, 

J. J. Mora 


Edita 

HOBBY PRESS, S.A. 


Presidente 

Maria Andrino 
Consejero Delegado 
Jose I, Gomez-Centurion 


Jefe de Production 

Carlos Peropadre 


Jefe de Publicidad 

Concha Gutierrez 


Redaccion, Administration 
y Publicidad 
Ctra. de Irun km 12,400 
(Fuencarral) 28049 Madrid 
Pedidos y suscripciones: 
734 65 00 

Redaccion. 734 70 12 


Dto. Circulation 

Paulino Blanco 


Dto. de Clientes 

Marta Garcia 


Distribution 

Coedis, S. A, Valencia, 245 
Barcelona 

Imprime 

ROTEDIC, S. A. Crta. de 
Irun. Km. 12,450 (MADRID) 
Fotocomposicion 
Novocomp, S.A. 

Nicolas Morales, 38-40 
Fotomecanica 
GROF 

Ezequiel Solana, 16 
Deposito Legal: 
M-28468-1985 

Derechos exclusivos 
de la revista 

COMPUTING with 
the AMSTRAD 

Representante para Argentina, Chile. 
Uruguay y Paraguay, Cia. Americana de 
Ediciones, S.R.L. Sud America 1.532. Tel.; 
21 24 64 . 1209 BUENOS AIRES (Argentina). 
M. H. AMSTRAD Semanal no se hace 
necesariamente solidaria de las opiniones 
vertidas por sus colaboradores en los articulos 
firmados. Reservados todos los derechos. 


no de los ternas que, sin duda, han contribuido mas 
a populanzar a los Amstrad, por bellezay creatividad, es el de los 
graficos gestionados por ordenador. Nueslros leclores estaran cansados de 
asombrarse al observar la sorprendente calidad que poseen los graficos 
de los juegos comerciales, y se preguntaran si existe alguna manera de 
hacer algo asi. Resulta que si existe, es un programa, y nuestro tema 
principal de portada de este numero: el generador de «sprites», que asi 
se llama este tipo de figures, caracterizadas por la suavidad de su 
movimienio, asi como por un efecto de profundidad muy logrado. 

En la seccidn de Codigo Maquina, abordamos un tema relacionado 
con los graficos, tambien. Se trata de como manipular el movimiento de 
grandes trozos de la pantalla. 

El mundo de los lenguajes de programacion no queda sumido en el 
olvido, Nuestro articulo de iniciacion al «Forth», en su primer 
capitulo, asi lo muestra. Sera muy util contando con el intirprete de 
este lenguaje publicado en el numero 3 de AMSTRAD Especial. 

En «Mundo del PGW», tenemos en este numero urn nueva version 
del ya cldsico «Facturaci6n y almacm». Como pueden usledes ver, hay 
para elegir. 

Por ultimo, ademds de nuestras seceiones habituates de «Infobytes» y 
«Catalogo de software para el PCW», les ofrecemos un sensacional 
programa de «Backgammon», el popular juego de mesa, realizado 
integramente en Basic y al cual, desde esta pagina, les desafiamos a 
ganar, Observaran que no es facil 
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INTEGRATED- 7 
Siete funciones para 
un solo programa 

Mosaic ha comercializado un 
programa para su Amstrad PC, 
que combina estas siete 
funciones: 

Base de datos relacional, que, 
basada en disco, le ofrece hasta 
cien mil registros por fichero y 
un numero ilimitado de ellos. 

DataMail o correo electronico, 
a traves del cual se puede enviar 
una carta generica a un grupo 
de personas seleccionadas a 
partir de la base de datos. 

Hoja electronica con 2.047 filas 
y 255 columnas de celdas. 
Cuenta con amplia gama de 
funciones matematicas, estadfsticas, 
financieras, ademas de las 
logicas aplicables a los datos 
contenidos en la hoja de trabajo. 

Tratamiento de textos, cuenta 
con un diccionario de 30.000 
palabras de ortograffa dudosa y 
que le permite seleccionar las 
funciones a partir de un menu 
que aparece en pantalla. 

Graficos empresariales, los crea a 
partir de los datos de la hoja 
electronica y ofrece dos niveles 
de grafico, uno de analisis y 
otro con un alto mvel de 
calidad de presentation. 

Comunicaciones, con un modo 
se puede establecer 
comunicacion con cualquier 
computador que admita la 
transmision asincronica. 

Emulacion de terminates, le 
permite convertir a su 
microcomputador en un 
terminal 100 por 100, capaz de 
conectarse a otro 
microcomputador o a un gran 
computador central. 

Los siete componentes 
funcionan juntos con un nivel 
de flexibilidad tal, que le 
permite compartir e 
mtercambiar datos entre ellos. 




^Trivial?..., 
para su CPC 

La empresa Zafiro Sotfware 
Division ha comercializado para 
Amstrad una version exacta del 
juego Trivial Pursuit. Si ya 
habfa tenido la posibilidad de 
disfrutar de este divertido juego 
de mesa, ahora puede hacerlo a 
traves de su ordenador solo o 
con otras personas. 

El juego consiste, a grandes 
rasgos, en ir respondiendo las 
preguntas que el azar dispone a 
traves de los dados. Si el 
jugador responde 
acertadamente, su turno 
continua, si no, pasa al 
siguiente. De este modo cada 
jugador ira pasando por una 
serie de dificultades hasta 
alcanzar el cubo central del 
tablero. Si ademas de ser el 
primero en llegar, contesta 
acertadamente a una pregunta 
elegida por el resto de jugadores 
y ha conseguido caer en cada 
una de las 6 casillas diferentes 
de colores, no dude en que 
usted ha sido el ganador. 

Como novedad frente al juego 
original de tablero, el programa 
aprovecha las caracterfsticas 
sonoras y graficas de los 
microordenadores, con lo que 


no es de extranar que nos 
aparezca una de las bonitas 
caras de Hollywood en pantalla, 
al tiempo que se nos interroga 
por su nombre, o que se nos 
pregunte por el autor de una 
musica, que nuestro micro 
interpretara para nuestro 
deleite. 

El juego se encuentra dividido 
en dos cintas (tambien existe 
version disco): la primera 
cuenta con el programa en sf, y 
una tanda de preguntas. En la 



segunda cinta se encuentra un 
monton de preguntas mas, que 
solo necesitaremos despues de 
haber jugado muchas horas con 
la primera. 

Esta segunda cinta, presenta 
la novedad de ser «multiload», 
una tecnica desarrollada por los 
britanicos, que permite que la 
cinta sea lefda por un 
Spectrum, un Commodore o un 
Amstrad. 

El precio del programa para 
Amstrad, es de 4.000 ptas. en 
cinta, y 4.500 en disco, y es 
distribuido en nuestro pais por 
Zafiro, S. A. 


Creacion e impresion de carteles 
en un Amstrad PC 

Todo el proceso de diseno, hasta la impresion de carteles, 
puede realizarse en un Amstrad PC a traves del Signwriter. Se 
trata de un conjunto de programas, donde cada uno de ellos 
cumple una funcion muy concreta del proceso. 

Signin ayuda a crear el cartel, darle forma y revisar y 
modificar hasta conseguir el diseno deseado. 

Signout imprime, definiendo los perfiles de cada caracter sin 
importar su tamano. 

Diseno permite crear y editar los perfiles de los caracteres en 
la pantalla. 

El resto de los ficheros que componen el Signwriter tratan del 
archivo y procesado de los diferentes fonts de caracteres. 

Distribuye en Espana, International Computing. Apdo. 601 
de Palma de Mallorca. Tel. (971) 60 25 85. 













Graficos profesionales 
al alcance de todos 

Generador de sprites (I) 

Presentamos en este articulo un programa generador de graficos, llamados 
«sprites», capaz de crear figuras de una calidad comparable a la de los 
mejores juegos comerciales. 


E 

M, J stamos acostumbrados a jugar y ver 
programas en los cuales los movimientos que 
realizan sus protagonistas, a traves de la pantalla, 
resultan suaves para nuestra vista. 

Esto se consigue gracias a la tecnica de 
utilizacion de sprites, es decir, bloques graficos 
almacenados en memoria de una forma especial, 
que se trasladan a la pantalla con las oportunas 
rutinas de impresion que hacen que los 
desplazamientos de dichas figuras resulten 
atractivos. 

Realmente, un sprite es cualquier grafico capaz 
de moverse a traves de la pantalla con 
incrementos de un pixel, tanto en sentido vertical 
como en sentido horizontal. 

Pero no podemos permitir que un sprite pueda 
hacer solamente esto, sino que debe hacer 
posible, ademas, que podamos desplazarlo a 
traves de la pantalla con una relativa rapidez, ya 
que de lo contrario resultaria monotono y 
aburrido. 

Resumiendo todo lo visto hasta el momento, 
podemos decir que un sprite debe ser una figura 
movil que se desplace con movimientos suaves 
(pixel a pixel) y con una velocidad aceptable. 

Caracteristicas de la pantalla 

Vamos ahora a estudiar con un poco de 
detenimiento las caracteristicas de la pantalla de 
nuestro ordenador Amstrad, que es bien distinta 
a la de los demas ordenadores que existen en el 
mercado en estos momentos. 

En primer lugar, podemos observar que la 
memoria reservada para la pantalla es de 16 K, 
la cual resulta realmente extensa si se compara 
con la de otros modelos. 

Otra caracteristica que posee dicha pantalla, es 
el que en un mismo byte se almacena la 
informacion que nos indica si un pixel debe estar 
apagado o encendido, junto con la del color con 
que se debe encender. 


Todo esto nos lleva a la conclusion de que el 
movimiento de una figura a traves de la pantalla, 
pixel a pixel, resultana relativamente lento, 
debido a la cantidad de bytes a trasladar para 
cada figura y al elevado numero de pixels que 
forman dicha pantalla. 

Existe, ademas, otro inconveniente, y es 
debido a que la anchura de los pixels en forma 
vertical, no guarda relacion con la misma 
anchura en sentido horizontal, siendo la primera 
unas dos veces mayor que la segunda, lo cual 
produciria un movimiento discordante del sprite. 

Por todas estas razones, hemos crefdo 
conveniente que nuestros sprites se desplacen por 
la pantalla de ocho en ocho pixels en sentido 
horizontal, y de cuatro en cuatro en sentido 
vertical, ya que de esta forma se soluciona el 
problema de la rapidez, siendo ademas los 
desplazamientos, en un sentido y en otro, 
exactamente iguales. Por supuesto, esta solucion 
se ha elegido una vez comprobado que los 
movimientos de dichos sprites se realizan de una 
forma realmente suave y atractiva para nuestra 
vista. 


Para conseguir un movimiento 
mas rapido, los sprites se 
desplazan por la pantalla de 8 en 
8 pixels en horizontal, y de 4 en 
4 en vertical 


Hemos solucionado, pues, el problema del 
movimiento de nuestras figuras a traves de la 
pantalla, pero debemos solucionar tambien la 
forma en que nosotros podremos crear nuestros 
propios sprites, y la forma en que estos se 
deberan almacenar en la memoria de nuestro 
ordenador. 

Vamos a ver como deberemos disponer 
nuestros graficos en la memoria para que la 
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rutina de impresion sea capaz de imprimirlos en 
pantalla tal y como los hemos creado. 

Esto se realiza en tira de bytes horizontales, 
colocandolas unas detras de otras a traves de la 
memoria, empezando por la primera tira que 
compone el grafico, y acabando en la ultima. 

Asi pues, si tenemos un sprite de 3 x 2, es 
decir 24 bytes de alto (3x8 = 24, ya que cada 
caracter contiene 8 bytes de alto), y 2 bytes de 
ancho, tendria una longitud total de 48 bytes y se 
deberfa almacenar en memoria de la forma que 
se indica a continuacion: 


MEMORIA 

1,2,3,4,5,.47,48 


Almacenamiento del «sprite» en la 
memoria. 


SPRITE 
1 2 

3 4 


47 48 


A Imacenamiento 
en pantalla. 
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El programa generador 


Solo nos falta, pues, disponer de un programa 
que nos permita crear los sprites y almacenarlos 
en el disco o cinta para disponer de ellos cuando 
se necesiten. 

Asf, en este primer capitulo sobre el tenia 
de movinnentos de bloques graficos, hemos 
confeccionado un generador de sprites. 

Dicho programa nos permitira la creacion de 
figuras de cualquier tamano, hasta un maximo de 
3x3 (es decir, de 24 pixels de alto por 24 pixels 
de ancho). 

Veamos en primer lugar como se deben 
interpretar las unidades utilizadas para dar las 
dimensiones de un bloque grafico. 

Cuando hablamos de un grafico de 2x3, nos 
referimos a un bloque de 2 caracteres de alto por 
3 de ancho. Ahora bien, dado que cada caracter 
contiene 8 bytes de altura, tendremos que dicho 
bloque contendra 8 x 3 = 24 bytes de altura. 



En cuanto a la anchura del sprite, esta 
dependera del modo de pantalla en el que 
deseemos trabajar. Veamos como debera 
interpretarse la anchura del sprite para los 
distintos modos de pantalla. 


Modo 2 . .. 1 caracter = 1 byte 

Modo 1 . 1 caracter = 2 bytes 

Modo 0 1 caracter = 4 bytes 


Nosotros, a partir de ahora, siempre 
hablaremos de las dimensiones de un sprite en 
forma de caracteres en funcion dc la altura v 
anchura de dicho sprite. Igualmente, cualquier 
dimension de sprite que se nos pida en 
alguno de los programas que presentaremos 
en esta serie, deberemos darlos de la misma 
manera. 

Vainos a ver a continuacion los bytes que 
ocuparfan bloques graficos en funcion del modo 
de pantalla en que se desee trabajar. 


La animacion de graficos por 
medio de sprites permiten un 
movimiento homogeneo, a modo 
de pianos, por la pantalla. 



DIMENSIONES 

BYTES ALTO 

BYTES ANCHO 

TOTAL 

MODO 2 

3x2 

24 

2 

48 

M0D01 

3x2 

24 

4 

% 

MODOO 

3x2 

24 

8 

192 


El programa generador de sprites que hemos 
preparado consta de dos partes: un bloque de 
Basic y otro de Codigo Maquma, pcro debido al 
corto espacio de que disponemos en este artfculo, 
y para explicar con una mayor claridad el manejo 
de sprites y el funcionamiento del programa 
generador que presentamos, hemos crefdo 
conveniente dividirlo en dos capftulos. 

Asf pues, en este primero vamos a ver como 
funciona la parte de Basic que aparece listada al 
final del artfculo correspondiente a la primera 
parte del programa generador de sprites. 

En primer lugar, este programa Basic cargara 
la parte de Codigo Maquina que presentaremos 
en el siguiente capitulo con el listado 
correspondiente. 

Seguidamente, nos pedira la altura y anchura 
del sprite que deseamos generar, es decir, 
deberemos dar las dimensiones del sprite en 
forma de caracteres, teniendo en cuenta que el 
mayor bloque grafico debera ser de 3x3. 

A continuacion, se encarga de imprimir en 
pantalla todas las opciones posibles que nos 
ofrece el generador de sprites e inicializa el 
bloque de Codigo Maquina. 

Una vez hecho esto, entramos en el bucle 
principal del programa Basic, el cual llama a la 
rutina en Codigo Maquina, y chequea las teclas 
“S” y “E”, que corresponden a las opciones 
ejecutadas desde Basic. 

Veamos ahora como actuan las dos funciones 
que son ejecutadas desde el programa Basic. 

La opcion correspondiente a la tecla “E”, nos 
permitira reinicializar el programa con unas 
dimensiones nuevas para el sprite. 

La otra opcion nos permitira salvar, en disco o 
cinta, el sprite que hemos creado. 

Cuando se elija esta ultima opcion, se nos 
pedira en primer lugar para que modo de 
pantalla deseamos utilizar el bloque grafico que 
se ha generado. 

Esto se debe indicar, ya que para cada modo 
de pantalla los datos para nuestro sprite deberan 
ser distintos debido a la diferencia que existe 
entre ellos. 

De esta forma, si nosotros salvamos un sprite 
en modo 1 y deseamos utilizarlo en modo 0, 
observaremos que la figura que se obtendra en 
pantalla aparecera desfigurada, debido a la 
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diferente informacion que se encuentra en los 
bytes de pantalla para cada modo. 

Una vez introducido el modo de pantalla, se 
nos pedira el nombre de nuestro sprite. 

Otro factor que deberemos tener presente, es 
que un mismo sprite sera de distinta longitud 
segun el modo de pantalla que se elija. 

De esta forma, si la longitud de un sprite en 
modo 2 es “L”, para modo 1 sera “2*L”, y 
para modo 0 sera de “4*L”. 

Para conocer en cualquier momento en que 
modo de pantalla estan salvados nuestros 
graficos, se adiciona al nombre un indicador. 

Asi pues, si salvamos un mismo sprite en cada 
uno de los diferentes modos de pantalla, al que 
hemos llamado “SPRITE”, con una longitud de 
8 bytes en modo 2, obtendremos los siguientes 
resultados en el disco o cinta: 


Graficos por 

ordenador 


NOTA IMPORTANTE 

El listado Basic que se adjunta en el articulo 
no sera ejecutable hasta que no se 
disponga de la Rutina en Codigo Maquina 
que aparecera en el capltulo II de 
Generador de Sprites. 


NOMBRE 

LONGITUD 

MODO 2 

SPRITE. SP2 

8 

MODO 1 

SPRITE. SP1 

16 

MODO 0 SPRITE.SPO 

-- . 1.- .. . --...-J 

32 


Por ultimo, diremos que este bloque de Basic, 
no sera ejecutable hasta que no se disponga de la 
rutina en Codigo Maquina que aparecera en el 
siguiente articulo dedicado a la utilizacion de 
sprites. 


SPRIT.BAS 

10 MEMORY &8FFF:L0fiD H 6ENSPRIT BIN*,&9 

000 

20 MODE 1 
30 CALL 49358 
40 CLEAR INPUT 

SO LOCATE 1,10:INPUT "ANCHQ SPRITE , 

* S A 

60 IF A<1 OR A>3 THEN GOTO SO 
70 MODE 1 

SO LOCATE 1,10: INPUT "ALTO SPRITE. " 

,e 

90 IF B<1 OR B>3 THEN GOTO 80 
100 POKE &9001,A:POKE &9002.B 
110 L2=A*B*8:Li=L2*2:L3=L2*4 
120 MODE 2 

130 LOCATE 50,1:PRINT * MODO 2 MODO 
1 MODO 0" 

140 LOCATE 55,10:PRINT CHRK240);"... 
.ARRIBA" 

150 LOCATE 55,11:PRINT CHRK241);*. 
ABAJ0* 

160 LOCATE 55,12:PRINT CHRti242){", 

.IZQUIERDA" 

170 LOCATE 55,13:PRINT CHRIC243);*.. . 
.DERECHA" 

180 LOCATE 55,14:PRINT "C0PIA. .PINT 
AR’ 

190 LOCATE 55,15:PRINT "CONTROL .BGRR 
AR* 

200 LOCATE 55,16IPRINT *B. ...BQRR 


AR TODD" 

210 LOCATE 55,17:PRINT *S... .SAVE 

S 

220 LOCATE 55,18:PRINT "C.EMPE 

ZAR 8 

230 CALL &9000 
240 CALL 49068 

250 IF INKEY(60)=0 THEN GOTO 280 
260 IF INKEY(62)=0 THEN GOTO 20 
270 GOTO 240 

280 CLEAR INPUT:LOCATE 1,25:INPUT "SA 
LVAR SPRITE EN M00C....*,M 
290 IF M<1 OR H>2 THEN G0SUB 350:60TO 
280 

300 G0SUB 370 

310 IF M=2 THEN At=A$+*.8P2":SAVE At, 
B.4946B.L2 

320 IF M=1 THEN At=At+".SPl":SAVE At, 
B,43663,LI 

330 IF M=0 THEN fi*=At+ w .SP0":SAVE At, 
B,S96F3,L0 

340 S0SUB 350:GOTO 240 
350 LOCATE 1,25:PRINT " 


360 RETURN 

370 CLEAR INPUT:G0SUB 350:LQCATE 1,25 
:INPUT'NOMBRE SPRITE. ..‘,At:IF LEN( 
At)>6 THEN G0SUB 350:GOTO 370 
380 RETURN 
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CONTROL DE STOCK 

con albarAn 

- 

de Novus Software 

Novus Software pone a 
disposition de cualquier 
empresa con almacen este 
Control de Stock,con 
posibilidad de emitir 
albaranes a traves de la 
impresora de cualquier PCW 
8256/8512. 

El programa dispone de un 
control de acceso por 
palabra, de paso que impide 
rigurosamente la 
manipulation del programa y 
ficheros a personas no 
autorizadas, con lo que se 
garantiza que el contenido de 
los ficheros (precios de costo 
y venta, cantidades en 
existencia, proveedores, etc.), 
solo lo podran alterar los 
responsables de ello. 

Cuenta con un control 
exacto del dfa y hora en que 
se trabajo con los ficheros, ya 
que quedan rellejados dichos 
datos en el disco 
automaticamente al acceder a 
ellos, diferenciando si hubo o 
no modification en aquel 
momento. 

Puede manejar hasta 1.500 
artlculos y 120 proveedores, 
cantidad tanto de unos como 
de otros, que tras estudios 
sobre empresas de distinto 
ambito, se ha constatado mas 
que suficiente para cubrir las 
necesidades de la inmensa 
mayorfa de los usuarios. 

Controla las existencias en 
almacen, en funcion al 
numero de ellas que se 
estime como optimo en 
cuanto a stock mfnimo y 
maximo necesario para una 
mayor rentabihdad. 

Emite un listado de 
reposition de los artlculos 
que se encuentren bajo 
mlnimos, agrupandolos por 
proveedor, lo que economiza 
tiempo y trabajo al efectuar 
nuevos pedidos. 

Actualiza automaticamente 
el precio de los artlculos 
existentes en el almacen en 


funcion de los que tengan las 
reposiciones. 

Facilidad de correction de 
las cantidades maximas y 
mlnimas recomendables a 
tener en existencia en 
funcion de las circunstancias 
del momento. 

Posibilidad de emision a 
voluntad de albaranes de 
salida, presentando tanto la 
propia razon social del 
usuano como todos los datos 
del comprador, siendo el 
albaran paginado en aquellos 
casos que as! lo requiera el 
numero de los artlculos 
pedidos. 

Emision de Listado de 
Inventario, en el que se 
reflejan todos los datos del 
artlculo, con casilla para 
anotacion manual de las 
existencias vistas, y sumas 
totales del valor del stock en 
costo y en venta a fin de su 
cotejo por el departamento 
correspondiente. 

Permite, aslmismo, la 
emision de un Listado de 
Reposition paginado en el 
que se agrupan los artlculos 
ordenadamente por su 
proveedor, lo que facilita 
enormemente el solicitar la 
reposition de los mismos. El 
listado figura con la fecha de 
la solicitud de la reposition, 
lo que permite enlazarlo en 
fechas posteriores, 
manteniendo las cantidades 
reales del momento de la 
petition de reposition al 
programa. 

Por ultimo, cuenta 
tambien con un Listado de 
Proveedores en el que 
figurara todo lo registrado en 


el fichero de estos: nombre, 
domicilio, telefono y 
localidad. 

PLACON 

de Linneo Software 

Este programa permite 
manejar una contabilidad 
general por partida doble, 
pudiendo ademas ser 
complementado por otros 
interesantes programas que 
enlazan con el mismo, como 
son el LIVA LIN y el ALFA 
3 LINNEO, que 

posteriormente 
comentaremos, si bien cada 
uno de ellos goza de una 
autonomfa propia. 

Las posibilidades de 
manejo que nos ofrece el 
PLACON incluye la 
elaboration del Diaro, el 
Mayor o fichas de cuentas, 
tres modelos de balances de 
sumas y saldos o 
comprobacion, el balance de 
situation (definible por el 
usuario), dos modelos de 
explotacion y la prevision de 
vencimientos. 

Por otra parte, la 
engorrosa tarea de contable 
queda ventajosamente 
simplificada mediante el 
control que el programa 
establece, para que los datos 
que se introduzcan cumplan 
determinadas condiciones: 
impide que se produzca 
duplication de cuentas, que 
se borre una cuenta con 
saldo, controla que cuadren 
los asientos, etc. 

Entre las caracterfsticas 
mas interesantes que 
podemos destacar, tenemos la 
anotacion de asientos rapida 
y versatil, reconstruir una 
contabilidad con errores 
aprovechando los asientos 
correctos, clasifica por 
vencimientos los cobros y 
pagos, permite siete niveles 
de cuentas de forma que no 
es preciso dar de alta un 
nivel para totalizar con el 

Se incluyen multiples 
opciones de trabajo tales 


AMSTRAD Semanal 11 














como valores por defecto, 
que son considerados con 
solo pulsar la tecla 
“INTRO”, entrada de datos 
a ficheros auxiliares (no 
actualizados), asf como la 
posibilidad de regeneracion 
de indices en caso de cortes 
en el suministro electrico, 
entre otras, sin excluir la alta 
relacion calidad-precio. 

le Linneo Software 

Este es uno de los dos 
programas que se consolida 
con la contabilidad 
PLACON PLUS, si bien la 
finalidad inmediata del 
inisrno es la programacion de 
almacen y facturacion con 
liquidacion de IVA (IVA 
repercutido e IVA 
soportado). 

Mediante la introduccion 
de clientes, articulos y 
proveedores, realiza compras 
a estos ultimos, que anota 
con el porcentaje del IVA 
soportado y por otra parte, 
vende a sus clientes articulos 
(que esten o no en el 
almacen), estableciendo dos 
formas de facturacion: 
facturacion inmediata y 
facturacion diferida. 

La facturacion inmediata 
se establece en el momento 
de la venta, mientras que la 
facturacion diferida realiza 
una factura de todos los 
articulos introducidos con 
albaran de un determinado 
cliente. 

Los listados incluyen 
entradas al almacen, salidas, 
resumen de facturacion, 
clientes, gestion...; emitiendo 
facturas, albaranes y recibos. 

El interes comercial del 
ALFA 3 LINNEO es 
manifiesto, permite el control 
de clientes, proveedores y 
articulos. 

Todos los datos incluidos 
en el listado son susceptibles 
de ser modificados, tales 
como: clientes, proveedores, 
articulos o facturas, asi como 


ot** 

de 

SOFTWARE 
PCW 


i_ 

si se trata de descuentos, si 
bien a cada cliente se le 
puede atribuir un descuento 
segun el tipo de articulo. 

Por otra parte, en 
cualquier instante, es posible 
pedir un listado sobre 
cualquier dato que pueda ser 
util para realizar un recuento 
estadistico, lo cual resulta de 
maxima operatividad y 
elicacia sobre aspectos de 
mejora o reestructuracion 
que quieran instaurarse a 
nivel comercial. 

LIVA-LIN 

de Linneo Software 

Con la finalidad de 
facilitar la ardua tarea de 
llevar la gestion del IVA se 
ha creado el programa 
LIVA-LIN. 

Su interes se ha centrado 
en transformar el complicado 
y lento proceso de gestion de 
dicho impuesto en un 
ejercicio rapido y sencillo, 
con el atractivo adicional de 
poder ser incorporado y 
complementar el programa 
de contabilidad PLACON 
PLUS, que como ya 
mencionabamos, amplia de 
esta forma sus 
potencialidades de manejo y 
aplicaciones. 

De cualquier forma es 
evidente el interes que por si 
mismo despierta este 
programa, permitiendo la 
realization de diversos 
informes como listado de 
clientes y proveedores, asi 
como diario de facturas 
emitidas y recibidas, que se 
obtienen con un claro ahorro 


de tiempo y trabajo. 

Asi mismo, el programa 
permite la modification de 
cualquier campo del fichero, 
como la admision de hasta 
tres apuntes diferentes con 
relacion a cada factura, sin 
que la introduccion de datos 
resulte una tarea complicada. 



de Master Computer 

La aplicacion mas 
ampliamente conocida d'- >a 
impresion de etiquetas se 
establece en la 

correspondencia de cualquier 
empresa, pero cada vez es 
mayor el numero de 
aplicaciones que se le han 
concedido, no solo a nivel de 
la gran empresa, sino 
tambien del pequeno 
comercio. 

Elio ha sido facilitado 
gracias a la amplia difusion 
de que gozan los ordenadores 
Amstrad 8256 y 8512, para 
los cuales este programa ha 
sido pensado. 

El Masterlocoscript 
permite combinar con 
facilidad el manejo de una 
base de datos potente, 
sencilla de manejar, con la 
impresion de etiquetas y con 
cualquier carta en un 
procesador de texto 
LOCOSCRIPT 

El usuario define el 
formato de la ficha y el 
acceso a la information 
contenida en cada una de 
ellas, puede realizarse por 
uno o varios campos y, 
ademas, indicarle un 
condicionante de busqueda 
para cada uno de ellos. 

De igual forma es posible 
seleccionar los datos de las 
fichas o los campos que se 
desea imprimir en las 
etiquetas. 

La otra facilidad que da el 
programa consiste en la 
posibilidad de combinar los 
datos de las fichas con una 
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carta realizada con el 
procesador de textos 
LOCOSCRIPT, intercalando 
de esta forma los datos de las 
fichas con el texto y, a su 
vez, poder indicar el numero 
de copias que desea del 
mismo, con los datos ya 
mezclados. 

MASTERTEXT 

de Mastersoft 

Cuando accedemos al 
procesador de texto 
MASTERTEXT, 
observamos como las 
posibilidades que nos ofrece 
son multiples y de gran 
utilidad, con un manejo del 
mismo, sencillo. 

Una vez que nos ponemos 
ante el, el menu de opciones 
nos aparece en la pantalla 
con solo pulsar la tecla 
“COPY”. 

Las opciones que nos 
muestra son todas las 
requeridas para que el 
trabajo nos resulte comodo y 
poco arduo, siendo las 
siguientes: imprimir paginas, 
opciones de impresora, 
borrar/cambiar de pagina, 
guardar/llamar paginas, 
cambiar margenes, listar 
paginas, opciones especiales, 
continuar y fin de trabajo. 

La longitud maxima de los 
textos es de nueve paginas, 
cada una de las cuales es de 
veinte lineas y, a su vez, 
cada linea es de ochenta 
caracteres. 

A continuation, 
brevemente, exponemos en 
que consiste cada una de 
estas operaciones y las 
posibilidades que ofrece. 

Antes de iniciar un texto 
debe procederse a marcar los 
margenes deseados, pero en 
cualquier momento podemos 
variar los mismos con solo 
acceder a la opcion deseada. 

De la misma forma, el 
listado de paginas puede 
establecerse, bien desde la 
primera pagina o bien desde 
la pagina que nos 


encontremos trabajando; pero 
si por cualquier motivo 
hemos interrumpido el 
trabajo, con la opcion 
«continuar» podemos volver a 
integrarnos al texto sin tener 
que realizar ningun tipo de 
ajuste. 

Al finalizar el trabajo 
procederemos a su grabado, 
puesto que de no hacerlo al 
pulsar la opcion «fin de 
trabajo» el texto que se 
encontrara en la pantalla, no 
grabado, se borrara. 

Por otra parte, para 
imprimir el texto podemos 
elegir entre imprimir todas 
las paginas, una sola pagina, 
una parte de cada pagina o 
una parte de varias paginas, 
y ello se realiza con solo 
delimitar, mediante 
coordenadas, la pagina, linea 
y position de los puntos 
deseados. 

Del mismo modo, el 
procesador de textos ofrece 
«opciones de impresora» para 
poder variar el tipo de 
impresion segun precisemos o 
deseemos, bien en doble 
impresion, impresion 
destacada, saltar de linea, 
saltar de pagina, cambiar el 
espacio entre lineas o bien 
variar el tipo de letra segun 
desee el usuario. 

Como cualquier procesador 
de textos que se precie el 
MASTERTEXT, posee las 
opciones «borrar/cambiar de 
pagina» y «guardar/llamar 
pagina». 

La utilidad de estas 
operaciones es de 
imprescindible ayuda en la 
redaction de un texto, y 
resulta impensable por la 
reduction de tiempo de 
trabajo que comporta. 

La opcion «borrar/cambiar 
de pagina» sirve para borrar 
una o todas las paginas y 
cambiar a la pagina que 
deseemos, mientras que por 
si cualquier motivo queremos 
hacer la modification de un 
texto ya grabado, podemos 
optar por grabar/llamar una 


sola pagina, todas las paginas' 
o unas paginas determinadas. 

Por ultimo, mencionar que 
MASTERTEXT tambien 
cuenta con opciones 
especiales que nos permiten 
ver el contenido del disco o 
cassette con el que estemos 
trabajando, asi como elegir 
entre disco o cassette. 



CONTROL DE STOCK 
CON ALB ARAN 

de Novus Software 

Precio: 11.700 ptas 
Hacienda de Pavones, 1W 

28030 Madrid 
Tel. (91) 773 40 64 

PLACON PLUS 

de Linneo Software Microbyte 
Precio: 29.900 

Plaza Republica de Ecuador, 6 
28016 Madrid 

ALFA-3 linneo 

de Linneo Software 
Precio: sin confirmar 
Plaza Republica de Ecuador, 6 
28016 Madrid 

liva-lin 

de Linneo Software 
Precio: sin confirmar 
Plaza Republica de Ecuador, b 
28016 Madrid 

MASTERLOCOSCRIPT 1 

de Master Soft 
Precio: 14.900 
Plaza de Cristo Rey, 3 
28040 Madrid 

Tel. (91) 244 59 43 _ 

| MASTERTEXT 

: Master Soft 
•redo: 4.800 

Icniro Comercial, Ciudad Santo 
Domingo 

larretera de Burgos, km 28 
78120 Madrid 
' el. (91) 622 12 89 
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luego del Backgammon 

Es dificil conseguir que un ordenador juegue a algo de forma 
inteligente, y que, ademas, los graficos y sonidos que acompanen al 
programa responsable sean de alta calidad. Sin embargo, no es 
imposible y retamos, en el mejor sentido de la palabra, a nuestros 
lectores a que intenten ganar a nuestro programa de. «Backgammon». 


r 

1J ste programa que juega al conocido 
pasatiempo-culto britanico que es el 
Backgammon, es un juego bipersonal, y en el, el 
ordenador realiza la funcion de oponente. 

El manejo de las fichas es muy sencillo. Como 
siempre, salvo en el caso de que saquemos 
dobles, tiraremos dos veces, y tendremos que 
mover tambien dos veces, la primera con el valor 
de un dado y la segunda con el del otro, Para 
indicar el primer movimiento pulsaremos la letra 
perteneciente a la casilla en que se encuentre la 
ficha a mover y, finalmente, el numero de puntos 
que queremos avanzar, y que 


debera pertenecer al valor que nos marque uno 
de los dos dados. En el caso de que no podamos, 
o no deseemos mover, pulsaremos simplemente la 
tecla ENTER. 

La realization y presentation del programa es 
bastante buena y la estrategia de juego levantaria 
dolores de cabeza a los mejores aficionados a esta 
noble competition. 

A continuation, damos las instrucciones 
completas de este juego, que esperamos llene 
muchas de las tardes lluviosas de invierno. 


JUGADOR FICHAS NEGRAS 


REGLAS DEL JUEGO 


Casa propia Negro 

12 11 10 9 8 7 6 5 4 3 2 1 


12 11 10 9 8 7 6 5 4 3 2 1 

Casa propia Blanco 
JUGADOR FICHAS BLANCAS 


Para empezar cada jugador 
tiene 15 fichas de color 
contrario a su oponente. (Para 
colocar las fichas ver figura.) 

El tablero esta dividido en 
cuatro partes, cada una de ellas 
tiene seis cunas, alternando en 
color. En el centro del tablero 
esta la barra que divide la casa 
propia de ambos jugadores. 
(Ver figura.) 

Las fichas se colocan de la 
manera llustrada en la figura y 
se mueven en el sentido 
indicado por las flechas. 

El objctivo del juego consiste 
en llevar todas las 15 fichas a 
nuestra propia casa, 
moviendolas solo y 
exclusivamente en el sentido 
indicado por las flechas, y una 
vez metidas todas, se recogen 
del tablero. El primero en 
sacarlas todas es el ganador. 

Para comenzar el juego, cada 
jugadorlanza 
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simuladamente un solo dado, y el que obtiene el 
numero mas alto mueve primero, valiendose de 
la combinacion arrojada por ambos jugadores. 

En caso de darse el mismo numero, deben, 
obviamente, volver. 

La movida de la ficha es posible solo en el 
caso que la linea de llegada no este ocupada por 
dos o mas fichas adversarias, en las lineas libres 
u ocupadas por las propias fichas pueden pararse 
cualquier numero de fichas (aun mas de 5). 



1 I . III. 

M N O P O R STUUHX 

Mis Piezas 15 Dtsde: Jug*do: 0 

Tus piezas IS Hast*: 

APl'NTA V MUEVE 9 1 CZ PARA AVUPA1 ■ 


El lanzamiento de un «doble» (1-1, 2-2, 3-3, 4-4, 
etc.), premia al jugador adjudicandole dos 
movimientos por cada dado (esto es: un 6-6 
permite mover dos veces 6 espacios, mas dos 
veces 6 espacios, un 3-3 permite mover dos veces 
3 espacios, mas dos veces 3 espacios). 

Si en la linea de llegada se encuentra una sola 
ficha adversaria (ficha vulnerable), esta podra ser 
«comida», o sea expulsada del tablero de juego y 
puesta sob re el borde central (barra). La ficha 
«comida» entra nuevamente en juego partiendo 
de la casa adversaria, utilizando el valor de uno 
de los dos dados, a voluntad del jugador y segun 
la posibilidad de entrada. La entrada de la ficha 
en la casa adversaria tiene lugar contando las 
lineas de 1 a 6 en el sentido propio de marcha. 

La reentrada de la ficha «comida» cuesta asi al 
jugador el valor de un dado, ademas de la 
posicion precedentemente alcanzada por la misma 
ficha. Obviamente, el segundo dado podra ser 
utilizado por otra movida. 

No es posible la reentrada, si ambos valores 
expresados por los dados lanzados indican dos 
posiciones ocupadas por dos o mas fichas 
adversarias. El jugador pierde entonces un 


Serie ^ 

ORO CPC 

turno. 

Una tactica importante es ir 
formando una buena defensa en su propia casa, 
de modo que al comer una ficha adversaria le 
costara trabajo a esta volver a entrar en 
juego. No olvide que la defensa de cada cuna 
consiste en tener mas de una ficha sobre 
ella. 

No se pueden mover las fichas propias en 
juego, si no se han hecho reentrar en juego todas 
las fichas propias presentes sobre la barra; 
obviamente si se cae en la reentrada sobre una 
ficha vulnerable del adversario, esta puede ser 
«comida». 

Una vez que todas las fichas se hallen en la 
propia casa, se inicia la fuse final del juego, que 
consiste en la «recogida» de las fichas mismas 

La «recogida» es la salida definitiva de las 
fichas de la propia casa. Tiene lugar utilizando el 
lanzamiento normal de los dados, numerando las 
lineas de la propia casa de 6 a 1, partiendo del 
borde o barra central. 

La dinamica de la recogida usa los valores 
expresados por cada dado (es decir, si se lanza 
un 4-3 puede retirarse una ficha de la linea 4 y 
otra de la linea 3). En caso que no hubiese fichas 
sobre las lineas indicadas por los dados, puede 
utilizarse el valor de cada dado para recoger una 
ficha de la linea inmediatamente inferior. Esto no 
puede hacerse si existen fichas sobre las 
lineas superiores, o sea, cuando los dados 
pueden ser utilizados para desplazar estas fichas. 

No es obligatorio recoger una ficha si puede 
moverse otra de ellas segun el entero numero 
lanzado a utilizar (es decir: realizar el 5 
desplazando una ficha de la posicion 6 a la 
posicion 1). 

Se gana una partida simple cuando el adversario 
ha llevado todas las fichas a su casa y ha 
«recogido» por lo menos una ficha. 

Se gana una partida doble cuando el adversario no 
ha conseguido recoger ninguna de sus propias 
fichas. 

Se gana una partida triple cuando el adversario 
tiene al menos una ficha en la casa del ganador o 
sobre la barra. 
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10 REM Backgasmen 
20 REM 

30 REM (c) Asstrad Sesanal 
40 REM 

50 CALL &BC02:cp=23i:pp=230:sp=32:SPE 
ED WRITE 1 

60 C5tore=0:pscore=0:gase=0:mi$=*PULS 
A UNA TECLA" 

70 help=0:»2$=SPACE$(!!)+*<< 
»":fi3$="Puisa ENTER para Menu” 

80 INK 0,0:INK 1,24:INK 2,1:INK 3,6:1 
NIC 4,9:INK 5,8 

90 DIM col(24,3),order(24,2),hie(24,2 
j,hip(24,2) 

100 6DSUB 2960:BORDER 0:60SUB 3040 
110 IF a=2 THEN 60SUB 2740:60SUB 2550 
ELSE pn=l5:cn=15:hp=Oihc=0:G0SU8 317 
0:GOSUB 2740:60SUB 2630 

120 rem mnnmmmmnmmn 
m 

130 REM **** BUCLE principal mi 
140 WHILE pn>0 AND cn)0 
150 PAPER 0 

160 LOCATE 13,22:PRINT cn:LOCATE 13,2 
3: PRINT pn 

170 IF toss=0 AND a-02 THEN GOSUB 880 
ELSE IF tO55=0 THEN a=0:GOSUB 940 
180 to55=0 

ISO IF help THEN GOSUB 3040:help=0:a= 
2:GOTO 110 

200 REM **** COMP MOVE *4*1 

210 IF pn THEN LOCATE 1,25,‘PRINT'TIRA 

RE MI DADO AHORA ”SPC«15) 

220 FOR f=l TO 2000:NEXT 
230 LOCATE 1,25:PRINT SPCI39) 

240 GOSUB 2190:GOSUB 2250:REM arroja 
y pinta el dado 

250 IF double THEN 6=4 ELSE s>=2 

260 ctt=a+l:ply-0 

270 WHILE a>0 AND pn>0 AND cn>0 

280 LOCATE l,25:PRINT“Hi Movifiiento"c 

tt-B 

290 IF (doubled AND s=2) OR double T 
HEN rn=r(l) ELSE IF double=0 AND »=1 
THEN rn=r(2) 

300 ceg=l 

310 FOR x=7 Tu 24 

320 IF coKx.l) OR he THEN ceg=0 

330 NEXT 

340 REM ***i novimiento cortos **** 
350 count=0:flag=0 

360 IF ceg THEn'gOSUB 1320IREM fin de 
2 juego 

370 IF ceg AND flag=0 THEN 420 ELSE I 
F flag THEN 540 

380 IF he THEN GOSUB 1280:GOTO 420 

390 FOR point=24 TO 1 STEP-1 

400 IF coKpoint, 1 )>0 AND (point-rn)> 

0 THEN GOSUB 2010:REM prioridad 
410 NEXT 


420 IF count=0 THEN 630 

430 REM mi eneuentra la tsejor jugad 

a nn 

440 best=0:ct=0 

450 FOR z=l TO count 

460 IF order(z,l)>best THEN best=orde 

F ( Z, 1) 

470 NEXT 

480 FOR z=l TO count 

490 IF order(z,l)=best THEN ct=eW:is 

o¥es(ct)=orderiz,2) 

500 NEXT 

510 IF ct=l THEN point=»oves(l) ELSE 
po int=sioves (INTI RNDIc t >+1) 

520 REM nt% elige jugada al azar m 
I 

530 p2y=ply+rn:LOCATE 37,22:PRINT ply 
540 IF point<25 THEN LOCATE 26,22:PR! 
NT CHR$(point+64) ELSE LOCATE 26,22:P 
RINT’I* 

550 FOR f=l TO 1000:NEXT 
560 IF hc=0 THEN GOSUB 1430:REM guita 
pieza 

570 point=point-rn:PAPER 0 
580 IF flag=0 THEN LOCATE 26,23:PRINT 
CHR$(paint+64> ELSE LOCATE 26.23:PRI 
NT")" 

590 FOR f=l TO 1000:NEXT 

600 IF flag=0 THEN GOSUB 1530:REM a#a 

de pieza 

610 PAPER 0 

620 IF hp THEN LOCATE 20,2:PRINT"Esta 
s “HIT” ELSE LOCATE 20,2:PRINT SPCUO 
) 

630 »=»-l:y£ND 
640 WEND 

650 hem mmnnmmmmmun 

4 

660 REM ***** fin ***** 

670 hn=0:hpi=0 

680 FOR x=19 TO 24 
690 IF coKx.U THEN hci=l 
700 NEXT 

710 FOR x=l TO 6 

720 IF eol(x,2) THEN hpi=1 

730 NEXT:LOCATE 13,2 

740 IF cn=0 AND (hp OR hpi)THEN cscor 

e=eseore+3:PRINT"MI BACKGAMMON” 

750 IF pn=0 AND (he OR hei)THEN pscor 
e=pseore+3:PRINT“TU BACKGAMMON” 

760 IF hp=0 AND hpi=0 AND pn=15 THEN 
cseore=cscore+2:PRINT*MI GAMMON* 

770 IF hc=0 AND hci=0 AND cn=15 THEN 
p5core=p5core+2:PRINT"TU GAMMON* 

780 IF cn=0 AND hp=0 AND pn<15 THEN c 
5Core=c5Score+l:PRINT"V0 GANG* 

790 IF pn=0 AND hc=0 AND en<15 THEN p 
score=ps5Core+t:PRINT"TU GANAS* 

800 FOR z=300 TO 1 STEP-21:SOUND 1,30 
0+z:SOUND 1,300-z:SOUND 1,119:NEXT 
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PULSA UNA TECLA para *rroJ*r tu dado. 


810 PAPER 2:CLS:gase=gaie+l 

820 LOCATE 13,3:PRINT*JUE60:“gase:L0C 

ATE 13,4:PRINT STRING**7,"#*) 

830 LOCATE 5,10:PRINT "Tu Score:"psto 
re 

840 LOCATE S, 1-5:PRINT " Mi Seore:”cs 


core 

850 LOCATE 2,24:PRINT i!$* para otro 
juego.* 

860 IF INKEY*=** THEN 860 ELSE GOTO 1 

10 

870 REM 

880 REM tm MOVIMIENTO DEL JUGADOfi * 
*** 

890 REM 

900 LOCATE 1,25:PRINT SPC(39):ply=0 
910 LOCATE 1,25;PRINT »1$" para arroj 
ar tu dado," 

920 IF 2NKEY$="" THEN 920 ELSE GOSUB 
2190 

930 IF double THEN »=4 ElSE s=2 

940 ctt=«+l:GOSUB 2250 

950 WHILE a>0:LOCATE 37, 22:PRINT ply 

960 peg=l 

970 FOR z=i TO 18 

980 IF eoICz,2) OR hp THEN peg=0 

990 NEXT 

1000 LOCATE 1,25;PRINT"AF'UNTA V MUEVE 
?”ctt-8t;:INPUT"[2 PARA AYU0A3 *,ps 
t 

lOiO pi8t=UPP£R|{p«l) 

1020 IF ps$="* THEN 1220 

1030 IF pa$="Z" THEN he lp=i:RETURN 

1040 fro6=ASC(LEFT$(p8$,l))-64:v=VAL( 

MID$(pi»$,2>) 

1050 IF hp THEN too=v ELSE too=froa+v 


1060 REM **** JUGADA I LEGAL **** 

1070 IF peg=0 AND (frosCl OR froK>24 

OR too>24) THEN 1000 

1080 IF too<2S THEN IF col (too,1)>1 0 

R coI(too,2)=S THEN 1000 

1090 IF hp=0 AND (col(free, 1) OR col( 

fro(s,2)=0) THEN 1000 

1100 IF N0T(v=r(l) OR v=r(2)) THEN 10 

00 :REM original IF NOT <v=rC1> OR v=r 

(2) OR v=r(1)+r(2> ) THEN 1040 

1110 IF peg AND too>24 AND ccl(25-v.2 

)=0 THEN GOSUB 1240:IF flag THEN 1000 

1120 IF hp THEN IF (colttoo,1)>1 OR e 
ol(too,2)) THEN 1000 


















1130 REM OO REALIZAR JUfiADA **** 
1140 ply-ply+vlLOCATE 37,22:PRINT ply- 
1150 IF hp=0 THEN LOCATE 26,22:PRINT 
CHR$(fros+64) ELSE LOCATE 26,22:PRINT 
»r 

1160 IF too<25 THEN LOCATE 26,23:PRIN 
T CHR$(too+64) ELSE LOCATE 26,23:PRIN 

JB \ II 

Ii70 IF hp=0 THEN point=fro»:60SUB 17 
20 

1180 FOR f=l TO 1000:NEXT 

1190 IF too<25 THEN point=too:GOSUB 1 

820 ElSE pn=pn-l 

1200 PAPER 0:IF pn=0 THEN RETURN 
1210 If hi THEN LOCATE 20,2:FRINT'Est 
oy 'HIT' * ELSE LOCATE 20,2:PRINT S 
PC(10) 

1220 »=m-l:WENO 
1230 RETURN 

1240 REN **** fin del juego para si j 
ugador **** 

1250 flag=0:FOR x=19 TO froe-1 
1260 IF coKx,2) THEN flag=l 
1270 NEXT:RETURN 

1280 REN UU toepara aovisiento 'hit 

" nn 

1230 IF col(25-rn,15 OR col(25-rn,2)> 
1 THEN RETURN 

1300 count=count+I:orderfcount,15=29: 
order(count,2)=25 
1310 RETURN 

1320 REM UU coup fin juego UU 
1330 IF coUrn, 1) THEN point=rn:fIag= 
1 

1340 z=6:WHILE z AND flag=0 

1350 IF flag=0 AND eol(z,I3 AND rn)z 

THEN point=z:flag=l 

1360 IF flag=0 AND colts,1> THEN z=l 

1370 z=z-l:WEND 

1380 IF flag THEN cn=cn-i:RETURN 

1390 FOR point=6 TO 1 STEF’-l 
1400 IF col(point,i) AND (point-rnDO 
THEN GOSUB 2010 
1410 NEXT 
1420 RETURN 

1430 REM **** guitar comp oe pisza *t 

n 

1440 ofs=col(point,l) 

1450 IF point>12 THEN yc=19:ofs=-ofs 
ELSE yc=5 

1460 PAPER 2+tpoint MOD 2) 

1470 FOR x=l TO 20 

1480 LOCATE coKpoint,3),yc+ofs:PRINT 
CHfij(cp) 

1430 LOCATE col(point,3),yc+ofs:PRINT 
CHRt(sp) 

1S00 NEXT: PRINT CHRK7); 

1510 coKpoint, l)=col(point, 13-1 
1520 RETURN 


1530 REM tit* atadir coup de pieza * 
*** 

1540 PAPER 0:P£N 1 

1550 IF he THEN GOSUB 1S90:L0CA!E hie 

Che,1),hie(he,23:PRINT" ”:he=he-l 

1560 ofs=col(point,13+1 

1570 coltpoint,1>=col(point,i>+i 

1580 IF point>!2 THEN yc=19:ofs=-ofs: 

j=13 ELSE yc=5:j=ll 

1590 IF coltpoint,2>=1 THEN GOSUB 166 

OlfiEM hit 

1600 PAPER 2+Cpoint MOD 23 
1610 FOR x=1 TO 5 

1620 LOCATE c o1(point,3 3.vc+of s:PRINT 
CHR$(sp> 

1630 LOCATE colt point,33,ve+ofs:PRINT 
CHRJ(ep) 

1640 NEXT 
1650 RETURN 
1660 REM ** hit ** 

1670 hp=hp+l:hip(hp,l)=coI(point,3):h 

ipthp,23=3 

1680 LOCATE hipChp,13,hip(hp,2):PRINT 
CHR$ipp3 

1690 coltpoint,23=coItpoint,2)-l 
1700 SOUND 1,63:FOR x=l TO 250:NEXT:S 
OUND 1,478 
1710 RETURN 

1720 REM **** guitar pieza del jugado 
r **** 

1730 ofs=coltpoint,23 
1740 IF point>12 THEN ye=19:ofs=-ofs 
ELSE ye=5 

1750 PAPER 2+tpoint MOD 2) 

1760 FOR x=l TO 20 

1770 LOCATE coKpoint,33,ye+ofs:PRINT 
CHRi(pp) 

1780 LOCATE coltpoint,33,yc+ofs:PRINT 
CHR$(sp3 

1790 NEXT:PRINT CHR$(7); 

1800 col(point,23=col(point,23-1 
1810 RETURN 

1820 REM ***** aladir pieza del jugad 
or **** 

1830 PAPER OlPEN 1 

1840 IF hp THEN SOUND 1,478:FOR x=l T 

0 250:NEXT:SOUND 1,63,'LOCATE hip(hp,l 

),hip(hp,2):PRINT" ":hp=hp-l 

18S0 ofs=coKpoint,23+l 

1860 col(point,2J=col(point,23+1 

1870 IF point>12 THEN ye=19:ofs=-ofs: 

j=13 ELSE yc=5:j=li 

1880 IF coKpoint, 13=1 THEN GOSUB 195 

0:REM hit 

1890 PAPER 2+(point MOO 23 
1900 FOR x=l TO 5 

1910 LOCATE coltpoint,33,ye+ofslFRINT 
CHRtfspJ 

1920 LOCATE coKpoint,33,yc+ofslPRINT 
CKR$(pp) 


Serie 

ORO 

1930 NEXT 

1940 RETURN 

1950 REM ** hit ** 

1960 hc=hc+1:hicthc,13=eol(point,3):h 
icChe,23=) 

1970 LOCATE hic(hc,13,hicthc,2):PRINT 
CHRKcp) 

1980 coltpoint,13=coI(point,13-1 
1990 SOUND 1,63:FOR x=l TO 250:NEXT:S 
OUND 1,478 
2000 RETURN 

2010 REM **** priondades de las juga 
das It** 

2020 too=point-rn:pf=coI(point,13:ptc 
=c oI(too ,1 3: ptp=c oi (t oo , 2 ) 

2030 IF ptc=5 OR ptp)l THEN RETURN 


2040 count=count+l:pri=0 

2050 IF pf=l AND pu=l AND ptp=0 THEN 
pri=20 

2060 IF pf=l AND ptc=0 AND ptp=l THEN 
pri=19 

2070 IF pf=1 AND picM AND ptp=0 THEN 
pri=18 

2080 IF pf>2 AND ptc=l AND ptp=0 THEN 
pri=17 

2090 IF pf>2 AND pte=0 AND ptp=l THEN 
pri=16 

2100 IF pf=1 AND ptc=0 AND ptp=0 THEN 
pri=15 

2110 IF pf>2 AND ptcM AND ptp=0 THEN 
pr i=14 

2120 IF pf>2 AND ptc=0 AND ptp=0 T HEN 
pri=13 

2130 IF pf=2 AND ptc=l AND ptp=0 THEN 
pri=12 

2140 IF pf=2 AND pte=0 AND ptp=l THEN 
pri=l1 

2150 IF pf=2 AND pte>l AND ptp=0 THEN 
pri=10 

2160 IF pf=2 AND ptc=0 AND ptp=0 THEN 
pri=9 

2170 order(count,13=pr i: order(count,2 

)=point 

2180 RETURN 

2190 REM **** arrojar dado **** 

2200 RANDOMIZE TIME 
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2210 FOR z=l TO 2 

2220 r{z)=INT(RNDtb)+l:NEXT 

2230 IF r(l)=r(2) THEN doubled ELSE 

double=0 

2240 RETURN 

2250 REN MM pintar dado MM 
2250 PAPER 0:LOCATE 33,2:PRINT SPC(6) 
I PAPER 3 

2270 LOCATE l,l:PRINT'Dado A> B r(l>:L0 
CATE 1,2:PRINT"Dado B>“r<2> 

2280 IF double THEN PAPER 3:LOCATE 33 
,2:PRINT°D0BLE" 

2250 PAPER 0:RETURN 

2300 REN MM salvar juego **« 

2310 CLSJPEN 1:PRINT"SALVAR juego":lo 
CATE 3,25:PRINT a3$ 

2320 LOCATE 1,10: PEN 3: INPUT"N0N1BRE 0 
El JUEGO"jna»e$ 

2330 nass*=UPPEfi*(na»eiJ:iP na«e$=“" 
THEN RETURN ELSE OPENOUT r>ase$ 

2340 PRINT#3,»,ply,hc,hp,cn,pn,r(1),r 
(2) 

2350 FOR x=l TO he:FOP y=l TO 2 
2360 PRINTt3,hit{x,y);NEXT y,x 
2370 FOR x=l TO hp:FOR y=! TO 2 
2380 PRINTt9,hip(x,yi:N£XT y.x 
2350 FOR x=l TO 24:FOR y-1 TO 3 
2400 PRINT#9,col{x,y>:NEXT y,x 
2410 CLOSEOUT:RETURN 
2420 REN Ut% CARGAR JUEGO MM 
2430 CLS:PEN l:PRINT"CARGAR JUEGO":LG 
CATE 9,25:PRINT s3J 
2440 LOCATE 1,10:PEN 3:INPUT"N0NBRE D 
EL JUEGO"JnaseS 

2450 nass$=UPPERt(na»e$):IF nase$="* 
THEN a=0:RETURN ELSE OPENIN rsa»e$ 

2460 INPUTt9,»,pIy,hc,hp,cn,pn,r(l),r 
( 2 ) 

2470 FOR x=l TO be:FOR y=i TO 2 
2480 SNPUTI9,hufx,y):NEXT y,x 
2490 FOR x-1 TO hp;FOR y-1 TO 2 
2500 INPUT#9,hipCx,y):NEXT y,x 
2510 FOR x-1 TO 24:F0R y=l TO 3 
2520 INPUTi3,colCx,y):NEXT y,x 
2530 CLGSEIN: toss=0:IF r(15=r<2) THEN 
double*l ELSE double=0 
2540 RETURN 

2550 REN M REINF'RINIR JUEGO M 

2560 FOR point=l TO 24 

2570 IF coKpoint.i) THEN FOR y=l TO 

col{point,1):ofs=y:G0SU8 1580:NEXT 

2580 IF col{point,2i THEN FOR y=l TO 

coi(point,2):ofs=y:60SUB 1870:NEXT 

2550 NEXT:PAPER 0:PEN 1 

2600 FOR y=l TO he:LOCATE hic<y,l),hi 

c(y,2):PR!NT CHRfCcpl.’NEXT 

2610 FOR y-1 TO hp:LOCATE hip(y,l),hi 

p(y,2):PRINT CHR$(pp):NEXT 

2620 RETURN 

2630 REN tm LECTURA DE COOROENADAS 


E IHPRESION INICIAL «** 

2640 RESTORE 2700 

2650 FOR point=l TO 24 

2660 REAS col(point,l):REAO collpoint 

,2):READ eol(point,3) 

2670 FOR z=l TO colCpomt,l):ofs=z:GO 
SUB 1580:NEXT 

2680 FOR z=l TO col<point-, 2>:of s=z:GO 
SUB 1870:NEXT 
2690 NEXT:RETURN 

2700 DATA 0,2,37,0,0,34,0,0,31,0,0,28 
,0,0,25,5,0,22 

2710 DATA 0,0,18,3,0,15,0,0,12,0,0,9, 
0,0,6,0,5,3 

2720 DATA 5,0,3,0,0,6,0,0,9,0,0,12,0, 
3,15,0,0,18 

2730 DATA 0,5,22,0,0,25,0,0,28,0,0,31 
,0,0,34,2,0,37 

2740 REN tUt DI8 UJA TABlERO UK 
2750 BORDER 0:PAPER 0:P£N l:CLS:PAPER 
2 

2760 LOCATE 20,22:F'RINT"uesde;”:LDCAT 
£ 20,23: PRlNPHasta:” 

2770 LOCATE 1,22:PRINT" His Piezas:" 
:L0CAIE 1,23:PRINT" Tus piezas:" 

2780 LOCATE 30,22:PRINT*Jugado:" 

2790 PAPER 2:LOCATE 1,S:PRINT SPCC39X 
:LOCATE 1,19:PRINT SPCC39) 

2800 PEN 3:L0CAT£ 5,5:PRINT"Exterior” 
:LOCATE 24,5:PRINT"Interior":PEN 1 
2810 FOR y=6 TO 18:LOCATE l,y:PRINT" 

":LOCATE 20,y:PRINT" ":LOCATE 39,y 
2820 PRINT* B : NEXT:z=0 
2830 FOR x=3 TO 18 STEP 3:PAPtR 0 
2840 LOCATE x,4:PRINT CHR$C76-z) 

2850 LOCATE x,20:PRINT CHRI(77+z) 

2860 PAPER 3-<x HOD 2)IFOR y=6 TO 10: 

LOCATE x,y:PRINT" ":NEXT 

2870 PAPER 2+(x NuD 2>:FGR y=14 TO 18 

:LOCATE x,y:PRINT" ":NEXT 

2880 z=z+l:NEXT:z=0 

2890 FOR x=22 TO 37 STEP 3:PAPER 0 

2900 LOCATE x,4;PRINT CHR$(70-z) 

2910 LOCATE x,20:PRINT CHR$(63+z) 

2320 PAPER 2+Cx NOD 23:FOR y=6 TO 10: 

LOCATE x.yJPRINT" *:NEXT 

2930 PAPER 3-Ex NOD 2):FGR y=!4 TO 18 

:LOCATE x,y:PRINT" ":NEXT 

2340 z=z+l:NEXT 

2950 RETURN 

236o REN tMM introduction MM 
2970 NODE 0:PEN 5:PAPER 0:BORDER 0 
2380 LOCATE 2, UPRINT STRINGS 18,"*’) 

:LOCATE 2,25:PRINT STRINGJUB,"*”) 
2990 FOR x=2 TO 24:L0CATE l,x:Pfi!NT‘t 
*:LOCATE 20,x:PRINT"*":NEXT 
3000 PEN l:LOCATE 3,10:PRINT"> Backg 
asson <* 

3010 PEN SILUCATE 3,20:PRINT" Asstrad 
Sesanal" 


Serie 

ORO 


3020 FOR x-1 TO 5000:NEXT 

3030 PAPER 0:RETURN 

3040 REN MUt senu MMt 

3050 UHILE-IINODE 1:PEN l:a=0:L0CATE 

14,1:PRINT"6aekgas»on":PEN 3 

3060 LOCATE 14,2:PRINT STRINGI(10,"+" 

):PEN 1:LOCATE 17,4:PRINT"MENU” 

3070 LOCATE 1,8:PRINT"1. Instruccione 
s." 

3080 LOCATE !,10:PRINT“2. Load juego 

J* 

3030 LOCATE 1,12:PRINT“3. Save juego. 

u 

3100 LOCATE 1,14;PRINT"4. Jugar Backg 
asson." 

3110 PEN 3:LOCATE 1,25:PRINT"E1 iges . 

B 

3120 a=VAL(INKEYt):IF a=0 THEN 3120 
3130 IF a=4 THEN RETURN 
3140 ON a GuSUB 3280,2420,2300 
3150 IF a=2 THEN RETURN 
3160 WEND 

3170 REN %MM guien susve prisero 

tm 

3180 CIS: PEN 3 

3190 LOCATE 4,8:PRINT*Arroja el dado 
para detidir guien" 

3200 LOCATE 1,9:PRINT*hace la prisera 
jugada. La tirada aas alta gana * 

3210 LOCATE UUPRINT SPC(8)"[Tu dad 
o es:*;:PEN l;PRINT"'8'";:P£N 3:PRINT 

«Y 

3220 PEN l:LOCATE 1,25:PRINT @1$ 

3230 IF INKEY$="" THEN 3230 ELSE 60SU 
B 2190:60SUB 2250 

3240 IF double THEN LOCATE 1,20:PRINT 
“ F a 11 o Intentaio de nuevo ".‘GOTO 323 
0 

3250 PAPER 2 

3260 IF r(l)>r(2) THEN toss=l:LOCATE S 
,25:PRINT"Vo gano!!H! " ELSE toss= 
0:LOCATE 1,25 :PRINT*Tu ganas 

3270 FOR f=l TO 3000:NEXT:RETURN 
3280 REN MUt instrucciones MM 
3290 PEN 1 

3300 LOCATE 10,20:PRINT "LAS INSTRUCC 
I0NES FOR FALTA DE ESPACIO EN PAGS 14 
-18 DE ANSTRAD SENANAL N.-73" 

3310 WHILE INKEY$=““:UEND 
3320 PEN 2 
3330 RETURN 

3340 ren mtmn fin mnnn 
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JUEGOS 



con 


Dos mundos tan distintos 
corno un ilimitado oceano, y 
el no menos extenso 
hiperespacio, contrastan lo 
suficiente para estudiarlos 
juntos, cuando han sido 
tratados con la imaginacion y 
burn hacer que marcan a los 
dos juegos que analizamos en 
este numero: «Xarq» y 
«Tempest». 

El primero nos lanza al 
singular papel de combatiente 
y vigilante de una puerta de 
salida del hiperespacio, donde 
se viaja mas rapido que la 
luz, al espacio normal. 
Debemos impedir a cualquier 
precio que las naves enemigas 
la atraviesen. 

El segundo, por el contrario, 
nos introduce suavemente en 
la aventura de un planeta 
completamente liquido. Solo 
hay oceanos, y en uno de 
ellos se esconde la mayor base 
planetaria, donde deberemos 
bregar con todo tipo de 
aventuras y peligros para 
lograr nuestro benefico 
objetivo. 

Dos nombres extrahos para 
mundos extrahos: «Xarq» y 
«Tempest». 


Del oceano al hiperespacio 
“Tempest” y “Xaiq” 
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TEMPEST 



j^Jas naves de «Tempest» cuentan con unos 
caiiones de plasma situados en los extremos 
mesoelectricos del fuselaje. Otra arraa, esta 
altamente destructiva, es el «Super Zapper». Con 
el podremos limpiar todo el tubo hiperespacial de 
aliemgenas de un solo disparo, mas su utilizacion 
debera realizarse en situaciones realmente 
complicadas, ya que solo podremos disponer de el 
una vez por pantalla. 

Los aliens, que hasta la fecha han sido 
catalogados, son los siguientes: 

Flippers, Vuclan de sendero en sendero al 
avanzar. 

Fuseballs. Vuelan a gran velocidad a traves de 
un solo sendero. 

Tankers. Cuando alcanzan un sendero, se 
abren en dos «Flippers», o en una «Spiralling 
Fuseballs» cuando disparan. 

Spiralling Fuseballs. Trazador de circulos a 
alta velocidad. 

Spikes. Viajan entre senderos en linea recta. 

Pulsars. Son los mas complicados. Hacen el 
viaje a traves de un sendero imposible. 

Para fumigar a los aliemgenas, ya hemos dicho 
que tenemos dos caiiones de plasma y un 
poderoso canon llamado «Super Zapper». Si con 
la dotacion de armas de nuestra nave 
conseguimos acabar con los incomodos y 
peligrosos aliens, cambiaremos de pantalla. Esto 
no entrana excesiva dificultad hasta el momento 
en que aparecen los tankers (no hacen imposible 
nuestra mision, pero la animan). 

Lina cosa que no conseguimos dominar fue la 


Proein, S.A. Veiazquc,? 10. V Dcha. Madrid, Tel. 27i. 2. 0/ 
P.V.P. — cinta — ’.300 
disci* — '1.700 

utilizacion del Super Zapper con el joystick. No 
se puede controlar su uso y se dispara cuando 
pulsamos el boton de fuego. 

Poco mas se puede decir de la accion de este 
juego de Electric Dreams que, como ya sabemos, 
distribuye Proein, S.A. 

En cuanto a la parte grafica, dirfamos que es 
bastante simple, ya que todo lo que veremos en 
pantalla a lo largo del juego seran lineas, puntos 
y figuras geometricas de todo tipo. El colorido 
sigue la misma linea de simpleza, y lo realmente 
logrado es el efecto de desintegracion de nuestra 
«nave» cuando es alcanzada por un alien. 
Tambien en esta situacion, como en todo el 
juego, el sonido es lo mas destacable. 

Tempest no creemos que pase a engrosar uno 
de los puestos de honor en la coleccion de los 
«viciosos» jugones. 



Originalidad 

El El ED HU Q 

Graficos 

El El El □ □ 

Movimiento 

El El El □ □ 

Sonido 

El ED ED □ □ 

Dificultad 

El El El □ Q 

Adiccion 

GO GO Q □ □ 

Valoracion final 
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XARQ 


Prcjein, S.A. 

P.V.P. — cinta — 2.300 


disco — 1.700 



a mision consiste en inundar los canales 
«Zimmerman» y, con esto, mutilizar el reactor 
principal. Pero, como toda tarea, esta tiene su 
dificultad, que en nuestro caso consistira en 
superar los sistemas de defensa y reparacion — 
ambos automations y fuera de control— que 
posee el complejo tecnico de Xarq. 

El sistema de defensa consta de poderosos 
canones costeros, minas acuaticas y misiles 
teledirigidos. Estos ultimos son los mas 
peligrosos, debido a que aparecen de repente y 
son dificiles de esquivar, puesto que llevan cabeza 
rastreadora. 

Para enfrentarnos a estos peligros, disponemos 
de una superavanzada canonera «Hidroboat», 
dotada de un «Hyperatom», sistema de 
propulsion desarrollado para la mision, ademas 
de estos sistemas de defensa y ataque: 

Laser. El laser es rapido y certero. 

Misiles teledirigidos. Para utilizarlos 
deberemos pulsar la tecla “G” del ordenador de 
la nave y, posteriormente, dirigir el misil a la 
izquierda o a la derecha, segun queramos. 

Mortars. En este caso deberemos pulsar la 
tecla “M” y con el boton de fuego controlar el 
mortar. 

Cargas de profundidad. Estas sirven para 
defendernos de los submarinos. Para arrojar las 
cargas, debemos pulsar la tecla “D” 

Los canales «Zimmerman» rodean 
concentricamente al reactor central. Para 
inundarlos, deberemos romper las luces que estan 
al lado de las puertas de cada seccion que, segun t 
su color, nos indicaran donde nos encontramos, 
de esta manera: 

Luces blancas y azules. Estan sobre la 
estacion de reparaciones. 

Luces verdes y negras. Indican el campo, el 



lugar donde se hallan los generadores laser. 

Luces purpuras y negras. Indican corrientes 
de campos de fuerza. 

Esta es la trama de un juego en el que lo mas 
destacable serfa el movimiento. 

Graficamente es un tanto abigarrado de lineas 
y colores. 

En el fondo, este juego de Electric Dreams, 
que distribuye Proein, S.A., no es sino uno mas 
de los dedicados a darle gusto al gatillo del 
joystick y a demostrar la habilidad en esquivar 



misiles y demas armamento enemigo. Si bien esto 
es entretenido, ya es un tema muy abordado y, 
para sorprendernos, este tipo de juegos deberan 
tener en el futuro una calidad grafica, asi como 
un movimiento y un sonido, cada dfa mas altos. 
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500 cc Grand Prix 

Proein, S. A . 

P. V. P,: Discos: 3. 700 / Cassettes: 2.300 

Las motos han cobrado un interes realmente 
importante desde hace algun tiempo en el mundo 
de los juegos de ordenador. Anuncios, conexiones 
con carreras, maquinas tragaperras y un largo 
etc. de apariciones en la vida diaria las hacen 
presentes. Es normal; despues de todo, no 
podemos olvidar que la sensacion de velocidad y 
competicion es dilicilmente comparable a 
cualquier otro vehfculo. 

Microids, casa francesa de software distribuida 
por Proein, S.A., no ha dejado pasar por alto la 
oportunidad de lanzar un juego apoyado en esta 
popularidad y ha hecho llegar hasta nosotros este 
500 cc Grand Prix. Con el podremos revivir las 
sensaciones antes descritas. Curvas de gran 
velocidad, largas rectas de gas a tope y la 



posibilidad, la importante posibilidad de poder 
jugar dos personas. 

El programa nos permite realizar las doce 
carreras que forman el campeonato de la 
categoria reina en el motociclismo mundial, los 
500 cc. Si solo queremos realizar una carrera, 
tendremos que elegir esa opcion. Tambien 
podremos empezar eligiendo el modo «novatos» 
hasta que nuestra pericia nos permita correr 
como expertos. 

En fin, un programa con un tema que no esta 
muy explotado por el momento, con unos 
graficos buenos, ademas de un sonido y 
movimiento que casi hace sentirnos al mando de 
una potente maquina de G.P. 

Digno de mention: 

Opcion de juego para dos personas 

Sonido 
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La herencia. 
Tribulaciones de un 

heredero en Las Vegas 

Ideologic 

Discos: 3.700 / Cassettes: 2.600 

\ 

Desde siempre hemos oido hablar de la 
inmensa fortuna que determinada persona heredo 
de su tia de America. Que envidia... 

Idealogic debio pensar que habia que realizar 
los suehos de la gente y ha sacado este juego’, 

«La herencia», para que podamos acercarnos a 
este sueho. 


Los creadores del programa nos han situado en 
la conocida ciudad americana de Las Vegas, 
centra del juego y demas vicios de USA. En ella, 
debido a una clausula del testamento de nuestra 
excentrica tia, deberemos ganar en una noche un 
millon de dolares. Si, 1.000.000 de dolares. Si no 
cumplimos esta ultima voluntad, la herencia se 
nos esfumara en el aire. 

Si, esto no va a ser facil de por si, deberemos 
ahadir la larga lista de acreedores que nos iran 
persiguiendo mientras intentamos ganarnos ese 
millon de dolares, jugando a la ruleta, los dados 
o con las maquinas tragaperras. 

A nosotros la idea nos ha parecido realmente 
original y llena de emocion, ademas de estar bien 
presentada graficamente y con un sonido logrado. 


Digno de mention: 

Originalidad 

Adiccion 


























Tennis 3D. 

Vive el Roland Garros 

Proein , S. A. 

P. V. P: Discos: 3.700 / Cassette: 2.300 

Loriciels, casa francesa distribuida por Proein, 
S.A., nos muestra su mejor juego. 

Aunque en este caso no podriamos hablar de 
originalidad total, si podriamos hacerlo de 
programa conseguido. 

En un principio cabe pensar que un programa 
de tenis es una cosa sencilla. Despues de todo se 
trata simplemente de mover a unos senores que 
golpean una pelotita mientras dura el partido. 
Esto no dista mucho de la realidad, lo que esta 
claro es que hay que mover bien a los 
mencionados senores y a la pelotita, objeto de sus 
golpes. 

Asi lo ha hecho Loriciels y, ademas, ha 
anadido un sonido perfecto para un programa de 
tenis. 

El programa se da el lujo de jugar en dos 
niveles, uno para noveles y otro para masters, y 
con tres tipos de pistas diferentes; una de tierra 
batida, una de hierba y otra sintetica. Con su 
opcion para dos personas, podremos jugar 
entretenidos partidos con los amigos, y pasar 
ratos muy agradables con un juego que, por su 


Compra y vende, el negocio 

Ideologic 

P V. P- • Cassettes: 2.000 


i)i t ic 


JUEGOS 



buena realizacion, te mete en la accion de un 
match verdadero. 

Digno de mention: 

Movimiento de los objetos 
Sonido 

Tres tipos de pista distintos 
Opcion de juego para dos personas. 


es tuyo 


Compra 
y venae 


lomo bien sabemos, el dinero todo lo compra 
>r el, casi todo se vcndc ' ha hecho 

eraen d„ en cue® 16gica , 

or a su no ™ bre y ri sarroUa r el intelecto para 

el duro y despiadadc mundc de 

[“nTprograma Compra V 

nte de un pequeno negocio en el que 

dremos qu^deniostrar nuestras dotes de 

EMuego es autoeKplicativo y no sera necesario 

ntido comun. ordenador nos hara un 

En un principle, el orde indispe nsable 

;queno examen para obtener e P 

arnet de comerciante». Para que este no 
a muy dificil, se adjunta un pequen 
iccionario comercial n() lo e s tanto, 

realmente^cas^e podria hablar de una utilidad. 



q ln p r aremos entrenarnos y adquir 
r„aT^r n as nocio^es de 

eaprdTSeSorp a as°; ,g en,re,e„,dos rams frenle 

al ordenador. 

Digno de mention: 

Originalidad 
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Bactron, medicina 
contra el aburrimiento 

Proein, S. A. 

P.V.P : Discos: 3.700/ Cassettes: 2.300 


Light Force. 

La venganza de Regulus 


Zafiro 

P. V. P.: Discos: 2.688 


Con este juego podremos combatir el 
aburrimiento, la depresion, la histeria ludica o la 
soledad, guiando a la simpatica bacteria 
«Bactron» en su lucha por acabar con los virus 
que nos mantienen enfermos. 

El unic.o efecto secundario que se conoce de 
tan milagroso farmaco es la fatiga de muneca, 
que nos aquejara hasta el momento en que 
acertemos a dirigir con precision a nuestra 
benefactora bacteria. 

En su arduo camino para liberar a las enzimas 
sanadoras, Bactron debera eludir a los poderosos 
virus causantes de la enfermedad porque si no, la 
devorarfan sin piedad. 

Buena y original la idea de este juego, ademas 
de venir acompanada de unos graficos y 
movimientos realmente buenos, asi como una 
musica que llama la atencion poderosamente. 

Digno de mention: 

Originalidad 

Graficos 

Movimiento de Objetos 



JLias colonias situadas alrededor de Regulus 
enviaron un escueto y laconico comunicado. Tras 
el se escondia una situation apurada: 

«Naves desconocidas han aterrizado en 
instalaciones clave». 





El consejo de GEM ordeno a toda la fuerza de 
defensa la marcha hacia las colonias. Lo que el 
consejo no esperaba era la respuesta en solitario 
de una nave, Lightforce. 

I u Lightforce es una nave poderosa, pero la 
mision encomendada es casi suicida y dependera 
de tu capacidad de pilotaje, asi como de tu valor, 
el soportar el enjambre de naves enemigas que se 
echaran sobre ti en el momento que te vean 
aparecer, 

Bonito, rapido y entretenido, este juego de 
F.T.L., que, aunque nos recuerda a algun juego 
de tiempos preteritos, se ha sabido remozar y 
darle el toque de actualidad, gracias a unos 
graficos buenos, casi tan buenos como el 
movimiento, y una action que apenas deja 
respirar. 

Lightforce esta distribuido en Espana por 
Zafiro. 


Digno de mention: 

Accion trepidante 
Movimiento 
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TRUCOS 


Quinielas express 

Siempre es conveniente poder hacer las cosas 
comoda y rapidamente, por eso, traemos hoy a 
«AmstradIdeas» una que nos propone uno de 
nuestros lectores para rellenar boletos de 
quinielas con la maxima celeridad. 

El funcionamiento es muy simple. Despues de 
la aparicion de la pantalla de presentation, 
deberemos pulsar la barra espaciadora y 
aparecera una nueva pantalla en la que se nos 
daran 14 resultados, si volvemos a pulsar, 
obtendremos una nueva combination, asi 
sucesivamente. 

p[Buena suerte!!! 



A veces hay que esperar 

El comando RSX, que implementamos con 
este pequeiio programa cargador, es el comando 





10 MODE l:BORDER 24:PAPER i:PEN 3:CLS 

20 FOR a=l TO 25:PRINT"1X2 1X2 1X2 U 
2 1X2 1X2 1X2 1X2 1X2 1X2\'NEXT A 
30 LOCATE 13,3:PAP£R 0:PEN 2IPRINT * 
quiniela ".'LOCATE 19,4:PRINT *1x2 
LOCATE 14,23:PRINT "pulsa espacio" 
40 a$=INKEY$:IF A»<>" * THEN 40 
SO IF A$=* * THEN PAPER t:PEN 3 

60 cls:s$=* 

70 FOR S=1 TO 14:D=INT(ftNDU)*3+l) 

80 IF 0=1 THEN PRINT S*i"l* 

50 IF 0=2 THEN PRINT S»;*X* 

100 IF 0=3 THEN PRINT S*i"2" 

110 NEXT S 

120 PRINTIPRINT * ESTA ES LA QUINIEL 
A MILL0NARIA_* 

130 LOCATE 14,23:PRINT "P0LSA ESPACIO 

B 

140 Dt=INKEY$:IF D$<>* " THEN 140 
150 IF G*=" " THEN GOTO 60 


PAUSE. Seguramente, para los que hayan 
utilizado el Basic del Spectrum, este nuevo 
comando les resulte familiar. Lo que hace es muy 
sencillo, simplemente espera. 

El comando PAUSE admite un parametro, de 
1 a 65000, cuanto mayor sea el numero, mayor 
sera el tiempo de espera. En el caso de que sea 
0, el programa se detendra hasta que se detecte 
la pulsation de una tecla. 


10 MEMORY &9FFF 
20 direcci=&AOOO 

30 FOE 1=1 TO 7 
40 sum=0:READ code®,check® 

50 FOR j=l TO 21 STEF 2 
60 byte=VAL<"&"+MID$<codes,j,2)) 

70 POKE direccl.byte 
60 sum=sum+byte:direcci=dlrecci+l 
90 NEXT 

100 IF sum< > VAL < " &” +check$ > THEN PR IN 

T "Error en data en linea ";290+i*10 

110 NEXT 

120 CALL &A000 

130 END 

140 : 

150 DATA 010AA02140A0CDD1BCC90F,4DE 
160 DATA A0C315A050415553C500DD,4F3 
170 DATA 7E00FE00200BDD7E01FE00,401 
180 DATA 2004CD06BBC9DD4600DD4E,4C9 
190 DATA 0178FE002004792001C90B,309 
200 DATA 3E193DFE0020FB18ED0000,3B2 
210 DATA 0000FF0000000000000000,FF 
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Catalogador 

Siempre que pretendamos sumergirnos en el 
interior de un flchero binario, existen tres 
parametros de conocimiento exigido para el 
curioso: la direccion de origen, la longitud del 
fichero y la direccion de ejecucion. 

Con esta pequena rutina, una buena parte de 
cstos prohlemas quedara resuelta. 

La utilization del programa no puede ser mas 
simple: RUN, meter la cinta que queremos 



10 t*************##*<<1 

20 ’ ** CATALOGADDR ** 

30 ’ ** By ** 

40 ’ ** Raul Avedi 11 o ** 

50 ’ ******************* 

60 CLB 

70 LOCATE 10,12:PRINT"ESPERE,CATALO 

DANDD" 

BO MEMORY 7999:FOR V=B000 TO B047:R 
EAD D:POKE V,D:NEXT:RESTORE 
90 DATA 62, 44, 17,64,0,33, 164,31,205 
,161,IBB,201,62,22,17,0,0,33,229,31 
,205,161,IBB,201,62,44,17,64,0,33,1 
64,31,205,15B, IBB,201,62,22,17,0,0, 


33,229,31,205,15B,IBB,201 
100 CALL 8000: H= 31: A== B100 : P=A 
110 CLBsLOCATE 12,4:PRINT"DATOS DEL 
PROGRAMA" 

120 LOCATE 12,5:PRINT”- 


130 LOCATE 5,10:PRINT"NOMBRE. 

.. ";:IF PEEK(P)=0 THEN PRIN 

T "NO TIENE" ELSE FOR F=P TO (P+15) 

: IF PEEK <PX>0 THEN PRINT CHRt (PEE 
K(F>);:NEXT 

140 LOCATE 5,11: PRINT"NL)MERO DE BLO 
DUE. PRINT F‘EEK (P+1&) ; : IF PE 

EK(P+17)00 THEN LOCATE 31,11 sPRINT 
“ULTIMO 

150 LOCATE 5,12: PR I NT " TI F‘0.. 


160 IF PEEK(P+18)=0 THEN PRINT"BASI 
C" 

170 IF PEEK(P+1B) = 1 THEN PRINT"BABI 
C PROTEBIDD" 

1B0 IF PEEK (P+1B) =2 THEN F’RINT"BINA 
RID" 

190 IF PEEK(P+IB)=3 THEN PRINT"BINA 
RID PRDTEBIDO" 

200 IF PEEK(P+18)=4 THEN PRINT"PANT 
ALLA" 

210 IF PEEK(P+1B)=5 THEN PRINT"ASCI 
I" 

220 LOCATE 5,13:PRINT"LONGITUD BLOQ 

UE.";: PRINT PEEK (P+19) +256*PE 

EK(P+20) 

230 LOCATE 5,14:PRINT"DIRECCION BLO 

SUE.."s:PRINT PEEK(P+21)+256*PE 

EK(P+22) 

240 LOCATE 5,15:PRINT"LONGITUD TOTA 

L. "5 : PRINT PEEK (P+24) +256*PE 

EK(P+25) 

250 LOCATE 5,16:PRINT"DIRECCIDN EJE 
CUCION,-.PRINT PEEK(P+26)+256*PE 
EK(P+27) 

260 LOCATE 5,17:PRINT"BLOOUES DEL P 
ROGRAMA..:IF PEEK(P+24)+256*PEEK( 
P+25)=PEEK(P+19)+256*PEEK(P+20) THE 
N PRINT 1 ELSE PRINT INT <(PEEK(P+24 
)+256*PEEK(P+25))/204B) +1 
270 CALL &BC71 

280 LOCATE 5,25:PRINT"PULSE *ENTER 5 
PARA CATALOGAR" 

290 WHILE INKEY9K >CHR$(13):WEND:RUN 


Textos giratorios en caracteres gigantes 


vfan Scroll, es, a nuestro parecer, el truco mas 
impresionante que ha pasado por esta seccion a lo 
largo de 74 numeros. A pesar de su corta longitud, 
haria enrojecer a mas de uno de los pequenos 
reclamos luminosos que estamos acostumbrados 
a observar en comercios y grandes almacenes. 

El programa incluye una pequena rutina en 
Codigo Maquina, sobre la que recae toda la 
responsabilidad del sorprendente movimiento. Si 
queremos incluir nuestros propios textos, bastara 


que lo hagamos en las datas al efecto. El 
programa leera e imprimira todos los textos 
contenidos en las lmeas de data, justo hasta 
encontrar la palabra «FIN», momento en el que 
comenzara nuevamente la ejecucion. 

Esperamos sinceramente que disfruten con este 
truco, tanto o casi tanto como lo hemos hecho 
para desenmaranar el secreto, que tras sus datas 
se oculta. Dejamos al aficionado al Codigo 
Maquina la resolucion del enigma. 
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TRUCOS 







10 REM Big Scroll 

20 KEM- 

30 REM(c) AMSTRAD SEMAMAL 
40 GGSUB 220:RESTORE 
50 BORDER 0.INK 0,0 
60 WHILE NOT Asleep 

70 READ a$,size IF a$="FIN” THEN REST 
ORE:GOTO 70 

80 CALL &A000,@aS>,1+RND*255,1+RND*255 
.size 


90 

WEND 


100 

RESTORE 


110 

WEND 


120 

END 


130 

140 

DATA "AMSTRAD 

SEMANAL 

150 

» 2 

DATA "AMSTRAD 

SEMANAL 

160 

” , 4 

DATA "AMSTRAD 

SEMANAL 

170 

1 O 

DATA "AMSTRAD 

SEMANAL 

180 

" , 16 

DATA "AMSTRAD 

SEMANAL 

190 

" , 4 

DATA "Esto es 

una demostracion de 


los scrolls que pueden conseguirse " 
, 4 

200 DATA "BigScroll utiliza la poten 
cia de el chip 6845 que controls el t 
ubo de iniagen ” , 16 
210 DATA FIN, 1 

220 REM - CODIGO MAQUINA - 

230 MEMORY 88FFF:direcci=&A000 
240 RESTORE 350 


250 FOK i=l TO 24 

260 sum=0:R£AD code$,checks 

270 FOR j=l TO 21 STEF 2 

280 byte=VAL<"&”+MID$(codes, j , 2)) 

290 POKE direcci,byte 

300 sum=sunri-byte direcci=direcci+1 

310 NEXT 

320 IF sum<>VAL(”&”+check$) THEN REIN 
T "Error en data en lines";340+i*10 
330 NEXT 
340 RETURN 

350 DATA A7C83D28243D280ADD7EOO, 3C2 
360 DATA 3288A0DD23DD233D280ADD, 4A6 
370 DATA 7E003286A0DD23DD23DD7E,531 
380 DATA 003280A0DD23DD23DD6E00,49D 
390 DATA DD66017EA7C83209A12322, 452 
400 DATA 3EA0DD2A00003E01CD0EBC, 3B8 
410 DATA 219FC02266A02100002207,2F2 
420 DATA A1DD7E00CDA5BBCDO6B911,5C6 
430 DATA FFA0010600EDBOCD09B906,4DA 
440 DATA 08F3110000C5CB40CA78AO, 4BE 
450 DATA 0601CDCBA010FBCDDCA006,599 
460 DATA 0821FFA0C5E50EFFCB2638, 5A8 
470 DATA 020E000608626B71233600,1B5 
480 DATA 2B7CC60867D29BAO1150CO, 50A 
490 DATA 1910EE545DE123C110D92A,4A0 
500 DATA 66A0014FOOA7ED42060836,370 
510 DATA 007CC6086710F82A66A023,40C 
520 DATA 2266A0C110A4DD232109A1,468 
530 DATA 35C24EA0C9F5C506F5ED78,6C8 
540 DATA 1F38FBED781F30FBC1E1C9,67C 
550 DATA 2A07A123232207A1CB3CCB.3B4 
560 DATA 1D0100BC3EOCED79047CC6,3D0 
570 DATA 30ED79053EODED79047DED,4BA 
580 DATA 79C9000000000000000000,142 


Papcl pintado 

para el fondo de tu CPC 

Dentro de los CPC existen multitud de pokes 
valiosos para el usuario. Uno de estos, en 
realidad es una variable del sistema, controla el 
color del papel, y equivale a la instruction 
PAPER pero con mucho mas juego. Los usuarios 
del CPC 464 encontraran este valor en la 
direccion B290, y los del 664 y 6128 en B730. 

Explicar los distintos fondos generados seria 
imposible desde esta pequena seccion, por eso 
proponemos el siguiente programa con el que 
podremos ver todos los fondos y colores posibles. 


10 

20 

KEM usuairios de 
FOR n=l TO 255 

464 



30 

POKE &B290,n 




40 

PRINT "PARA CONTINUAR 

PULSA 

UNA 

TECLA” 




50 

WHILE INKEY$=”” 

WEND 



60 

NEXT N 




10 

20 

REM usuct ri os de 
FOR n=l TO 255 

664 Y 

6126 


30 

POKE &B290,n 




40 

PRINT "PARA CONTINUAR 

PULSA 

UNA 

TECLA" 




50 

WHILE INKEY$="" 

WEND 



60 

NEXT N 
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MUCHO MAS DE10 QUE 

UD. ESPERABA. # 

% pe^* 




Mereciala pena esperar. AMSTRAD presents un nuevo 
hito en la hlstoria informatics: el PC 1512. 

Este ordenador, manteniendo la compatibilldad con el 
standard J, B. M® to supers 
tecnologicamente con un diseno en el que 
se mcorporan los ultimos avances de ia 
electronica, a un precio reaimente 
excepcional. 

MUCHO MAS EQUIPO 
FOR MUCHO MENOS 
PRECIO. 

139.900 PTAS. 


Para conseguir un PC, listed tenia dos opciones. 

0 bien, comprar un equipocomplete pero a un precio 
elevado; o bien, pagar menos pero a costa de recibir 
una configuration en (a que no se incluian elementos 
esenciales {monitor, memona, graficos, interface para 
impresoras, sistemas operatives, etc.). 

Ahora, con el "PC 512", por un precio reaimente 
excepcional y sir> inversiones de dinero 
complementarias Usted dispondra de un completisimo 
sistema irtformatico que se conecta a la red por un solo 
cable, y que mcluye como standard todo lo necesa o 
para trabajar a fondo: 512 K RAM. Monitor 
direceionable, raton, graficos y colores, interfaces para 
impresoras y otros perifertcos, reloj de cuarzo con 
baterias y un paqtete de software con los mas 
importanies sisiemas operatives: MSDOS3.2. 

{Microsoft) © DOS PLUS y CPM (Digital Research! 

GEM (Digital Research 
y BASIC 2 para GEM ff ocomotivi, • 

MUCHO MAS FACIL. 

UN GENIAL RATON LLAMADO GEM. 

Et “PC t512" incorpora el entomo GEM (Directors 
de graficos auxiliares), que ofrece toda la 
informacion en menus abatibles, •entanas e 
iconos para representor ten tsoetrabv . 
utiles como arthwasores, .moresos, 
calculadora. ...etc. Todo el.u, se maieia a 
traves de un raton ergonomics cc 
2pulsadores. Adiosalosmanuales 
decomplicada lectura, a los comandos 
dif idles y a los curses de entrenamiento. 
Con el GEM y el raton, 
el AMSTRAD PC 1512. to trace 
todo mas rapido y mucho mas sent o 

GRAFICOS CON MAS COLOR. 

Generalmente. el resto de los PCs no mcluyen en sus 
sistemas standard ni graficos ni cctores, aunque 
existen diferenles tarjetas de ampliacion. 

El modelo standard del “PC 1512" dispi— dc grtSKS 
de 16 c lores en 80 c ' imnas. con una de 


640xr''0 pixeis, Adsmas fcs graficos oe cctor sen 
fcompa is c 

eawriirse os ofe rentes colores en aversos tores 05 

s ** MUCHO MAS RAPIDO. 

El “PC Iff? uttzs un uerdadero 
MjgKptWantor de 16 pus. el 
IWELS086, que opera ? 8 MR? Con ef 
to vclcodad ctol software es de 2 o 3 
vecc-s sjpenct a la de la mayora de tos 
PCs exisfentos. que trabaian a J 7 M-. 
Ufar mectae 1 -rder-aivir y 
rapiflamenie, el sstema operaoional 
POM "becuea 4 o<5! el sisiemr, 
ir "nandde en pantalia la iunc$r< que 
esie operands en caca me nienfo 

EXPERTO EN COORDINAR UNA RED 
DE TRABAJO. 

El AMSTRAD “PC IS"? 
cua’quier rea de PC 

Su bap cos., “trim ’3i»e vetaodad y su comoleig 
espedficacion to eorv.ierten en a eslscon de Irabago 
perfectaparaq u eco- abes. duw tores lana 
personal en general er on i—cnentenwite undos y 
cr~partan reci:"-* *= 'ir 

los modems. Asnusiric. nuuden cempartir todo Dpsde 
datos: sadfs, factu'acirn, ficberos. etc 

MUCHO MAS COMPATIBLE. 

la exhaustiva coofigurac/n ba ca d?i "PC i5^2 
que inctuye como standard “deta ss eorouniii 
512KRAM., pe-nasseiuidds, tsteapR on J °6. 
etc le permit* ns sdfc acceoer a la totatidaci de los 
prcgi’ jmasejjsti a PCs: si 
proc.sar us a ana vao;cat. 

Porotro lado. AmwEspafia. treado un extensc 
cata'ngo de proc antes para PC a precios reaimente 
incrfctdesencr'abrai n iv ::r rerss (mis 
espar olas e 'mtemacoiMtes. 

LOGIC CONTROL 
DIGITAL RESEARCH” 

PRO ic 
GRAFCR 
MICROMOUSc © 

MICROPRO ■' etc. i 


praeveameme ilnTNtadas ui tfsooner de iterfac 

r v-- it- 

DISCO DURO. 

;.-i>. k w far ii i"PC )12 . Amstraopresen 
4 mcdelps ae disco euro que van desde el 
13 '.r-.ccnun disco de 10 Megabytes, 

monitor color, con 20 ""gat tes ■nor :, ~r cc 1 "' 

ELUA SU PC 1512. 


I Monitor monocromo 1 Disco 
Monitor monocromo 2 Discos 
Monitor color 1 Disco 
Monitor color 2 Discos 
Monitor monocromo 20 Megabytes 
Monitor color 20 Megabytes 


PVP 139.900 + IVA 
PVP 169.900 +IVA 
PVP 179.900 +IVA 
PVP 209.900 + IVA 
PVP 259.900 + IVA 
PVP 299.900 +IVA 




mm 


TODO LO QUE VD.RECIBE 
POR SOLO 139.900 PTAS. 

A contra' ,i ’PC 1512” ironfe monocromo), usted 
wefce un ccmptetisirrri sistema intormaticocon la 
sgjiKite dcnligii'x ’basica: 

HARDWARE: 

- unflaiCeraa con rocesador 8086 
1 16 tqs) j 6 Mnz. 

- Memona de 512 K-ampfaba a 640 K 

i'. a.'hr completecon85teciasen 

casWtoo. 

- Men tor art" a soft textos y graficos en "Paper 
Wdite’ 

- Cwnpat'D aadcc losoraficosdecoioresgraciasa 

los lSlcnti. toais. 

- Unioafl ce c^de 360 K con disco de 
5 •, piagadjs. 

- Reto| de cuarzo oar oateria 

- Inlertace ser« RS 232 C. 

Interlace parafeiu 

- Raton oe *seno ergoraynico. 

3 ranuras para ampuacio" 
Toma para joystick. 
Ajusteparaladearygirar 
etmawt. 

- Aliavoz mcorporado con 
4 con'roldevolumen 



FACIL AMPLIACION. COMPLETAS 
CONEXIONES. 

Aunque el surf strobasa 1 del'PC 1512 esum 
completoquequ.zasustti:Jicn srs: 
ampliaciones. Ams’-ad urfciert bs. 
posib. aad oe ai i«orr ui|«as espocializaoas. 

En la Unidad Centre 1 ae ordenadcr ensten "■ 
de expansion defaci accesi 
ap’ aac .res jmo redes Totems niemce ascot 
Juros etc 

En cuanto a las corencres inienores y extenores 
ei ‘PC 1512 lane posiblidases oe e*oansion 


SOFTWARE: 

- Sc-terna operative)Microsoft® MSOOS3.2 
Sisters operativo DOS PLUS de Digital Research. 
GEM (Drssfador de Graficos) de Digital Research 
Gt‘1Dr » y GEM Paint de Digital Research. 

- Lucerne:. ..are" “Basic 2" operative por mod 
dr- GEM. 

Mar.- to 1 ucuano de presentation ciara y 

octafada 


,.JESC0MP.C/.Amac!.a.I«l4l)M*BfilOTel.45930ei.felein6»HISCE.I : ai4698iK-iit!i < ! • . 


























A1 microscopio: Facturacion- 
Almacen para PCV 


Por: M. Garda 

Dentro del cumulo de software hecho en Espaha, es el dedicado a 
gestion de empresa el que mas Kbytes ocupa. Hoy le ha tocado el turno 
a un desarrollo de la firma Grotur, radicada en Madrid y que, como 
otras, tiene un extenso catalogo de gestion para nuestra querida 
«maquina de escribir». 


E, 


II programa al que le ha tocado «la china» 
esta vez es un desarrollo que contempla el 
proceso de facturacion, en este caso directa, sin 
mediar albaran, y control de movimientos de 
almacen. Para hacerlo realmente eficaz, se 
utilizan las dos unidades de disco para el 
almacenamiento de datos, teniendo en la unidad 
A, todo lo concerniente a clientes, asf como los 
datos de cada factura que emitimos, y en la B, 
todos los datos de articulos y movimientos de 
almacen. Los programas, claro, estan en 
memoria interna, con lo cual se gana rapidez de 
proceso. Vamos a ver como lo hace. 

Despues del proceso de carga, que puede 
resultar un tanto lento, entramos en una pantalla 
previa al menu principal, que es la de los datos 
de la empresa que va a trabajar con el programa. 
Una vez entrados estos datos, pasaremos al menu 
general, el cual consta en total de ocho opciones, 
que funcionan de la siguiente manera: 


El programa se 
caracteriza por su 
clara estructura y 
sencillez de 
manejo. 


* MENU PKIHCIPAL * 




1. ALMACEN. 

2. MOVIMIENTOS. 

3. DEVQPJCIONES. 

4. CLIENTES. 

5. FACTURAS. 

6. LISTADOS. 

7. CREACION E MCIACIGN 

8. FIN DE SESIGN. 

GFCIGN: I 





Opcion 1: Almacen 

Este proceso es el que controla las altas, bajas, 
consultas y modificaciones de los articulos que 
tenemos en almacen. Se entiende como alta y 
baja a la entrada o borrado de ese articulo con el 
que, posteriormente, se haran los movimientos de 
almacen. Comenzamos introduciendo el codigo, 
que puede ser de hasta 11 caracteres 
alfanumericos (numeros y letras). Vienen luego 
los campos de DESCRIPCION, para los cuales 
tenemos 25 caracteres disponibles, PVP, en el 
cual introducimos el precio con el que vamos a 
facturar el producto, IVA y RECARGO DE 
EQUIVALENCIA, con lo que se entiende que el 
programa puede llevar almacenes con productos 
que tengan distinto tipo de IVA, y, por ultimo, 
tres apartados que hacen referencia a los datos de 
stock actual, stock bajo mfnimos y numero total 
de entradas o salidas, asf como de devoluciones. 


Opcion 2: 


Movimientos 


Desde aqul vamos a controlar todas aquellas 
entradas y salidas de almacen que no dependen 
de la facturacion; entramos en este proceso con el 
codigo del articulo, debiendo introducir luego los 
datos de rigor para este tipo de procesos como 
son: fecha, unidades, entrada o salida, etc. El 
proceso se supone que lleva el control del IVA de 
clientes y proveedores, puesto que, ademas de 
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** *MMXM«XXM * EX*MXXMXXXMMMMM»EMEXM*mXXMMMMM*XXXMEXMXXXXXMXX»»MMXMX*»M)<X)<«XMXMXXE»M ) l*MM* 

* CL1ENTES * 

OPCIOHES: l.flLTA 2.BAJA 3.H0DIFICACI0M 4.C3NSULTA E.HEHU AHTOIQB OPC: 1 


COMCO. 


Noftbre. 

:E1 nejor cliente del mmdo 

Direccion. 

,:c/ Sucasa, 187 

Pcllacion. 


Codigo Postal. 


Prouincia. 

.:HMRD 

CDF o M. 

; 8-45874412 

leltfimo.. 

:5874123 

i CONFORM 1 (MO 

■ 


La pantalla de control de clientes, se agradece; fichay menu 
—todo en uno. 


salidas de almacen, contempla la entrada. Lo que 
ocurre es que para calcular el IVA 
correspondiente a proveedores hemos de cambiar 
siempre el precio, pues se parte siempre del de 
venta al publico, y este no puede ser igual al de 
costo. Y ya que estamos en movimientos de 
almacen, decir que el programa no contempla la 
confeccion de inventario, pues, dado que no hay 
precio de costo por cada artfculo, no podremos 
saber el valor REAL de lo que tenemos en 
existencias. 



Opcion 3: Devoluciones 

Desde aqui llevaremos el control de la 
mercancia que se nos devuelve por un cliente y 
de la que nosotros devolvemos a un proveedor. 



Pantalla de movimientos de almacen. La rapidez de 
busqueda de codigos es considerable. 


k 



Opcion 4: Clientes 

Como en todo programa de facturacion, 
partimos de esta opcion para dar altas, bajas, 
consultar o modificar los datos de un cliente 
determinado. Los campos que contiene cada flcha 
son los fundamentales para la confeccion de una 
factura, desde el codigo, de 5 caracteres 
alfanumericos, al Nombre, Direction, Poblacion, 
CIF, etc. Se echa en falta un campo de 
acumulados, con el que se pueda llevar un 
control de lo que cada cliente nos lleva 
comprado. Y es una lastima, porque dada la 
disposition de los datos, en las dos unidades, 
deberfa de haber sitio para llevar un pequeno 
control historico como este. 
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# * 

# 1. Facturacion. * 

# ft 

* i. Edicion de Facturas. * 

* * 

* 3. Listados. * 

* * 

* 4. Inicializar Facturas. * 

* * 

* S. Inicializar Totales. * 

* * 

* 6. Mortis a Menu principal. * 

a a 


Opcion..; I 


Opcion 5: Facturas 

Aqui nos encontramos con el corazon del 
programa. A1 entrar por esta opcion, nos 
topamos con un submenu, de seis opciones: 
Facturacion, desde donde entraremos los datos de 
una factura a emitir. El programa es aqui 
ventajoso porque permite hacer practicamente 
todo con las facturas, como repetir la impresion, 
anularlas, modificarlas, etc. 

La siguiente opcion de este submenu es la 
edicion de facturas, desde donde podremos 
modificar una factura guardada en memoria, 
incluso si esta ya ha sido emitida, llegando el 
caso de, por ejemplo, una factura devuelta, en 
parte o en su totalidad. Pasarfamos luego al 
apartado de Listados, en el cual podremos 
consultar los datos contenidos en una o varias 
facturas, pudiendo buscar por numero de factura, 
codigo de cliente o fecha de emision. La opcion 
es, sin duda, acertada, porque, al hacer una 



En la ficha de articulo, tenemos informacion en'tiempo real 
de las existencias. 


consulta de todas las facturas emitidas, el 
programa nos dara al tiempo los totales 
facturados, as! como lo que tenemos pendiente de 
cobrar, datos de suma importancia para cualquier 
empresa. 

Las dos opciones que restan, inicializar 
facturas e inicializar totales, son necesarias la 
primera vez que se utiliza el programa para crear 
o abrir algun tipo de fichero. Su utilidad 
posterior es la de dejar a cero el fichero de 
facturas, asi como los totales correspondientes, 
llegado el caso de que la capaciclad del disco ya 
no de para mas. 


XX X XXXXXXXXXXXXXXXXXXXXXXXXXX fr X iH HW Hl X X XXKKXXX X XXXKXXXIXXXXXXXXKXXIXXXXXXXXXX XXX XXX X X XXt X^ 

»mniinxxixxxiixixx»nixnxxxxxxxxxxxi»mxxxxxmxxxixxinxxxxiixxxxmxxMxxxxx x)H»', 

1. Alfiacen 

2. Hflvinientos 

3. Clientes 

4. NiMero de factura . 

5. Totales a cero 

E. TONS los f iclteros 
7. Menu principal 

OK : | 

HOTAsRecuerde que los datos anteriores seran borrados 


El proceso de inicializacion de ficheros es comodo, pues 
permite dejar a cero unos si y otros no. 


Opcion 6: Creacion e iniciacion 

Esta opcion es necesaria, del mismo modo que 
las dos ultimas comentadas, al entrar por primera 
vez en el programa. Con ella creamos los ficheros 
de trabajo: Almacen, movimientos, clientes y 
facturas, y por el mismo procedimiento, 
borramos ficheros de datos ya existentes. La 
ventaja es que se pueden inicializar por separado; 
es decir, se puede mantener el fichero de clientes 
—por ejemplo— e inicializar el de facturas, con 
lo que no habra que dar de alta a la clientela 
cada vez que se nos llena el disco. 

A modo de resumen... 

El programa cumple a la perfeccion el 
cometido que se le ha dado: facturar y llevar el 
control de movimientos del almacen, y tiene 
ventajas como la de poder confeccionar dos 
formatos diferentes de factura, y, dato a favor de 
la empresa productora, el dejar la puerta abierta 
a cualquier modificacion de este formato, a 
sabiendas, seguro, de que este es problema del 90 
por 100 de los usuarios noveles de una 
facturacion. Aun asi, se echan cosas en falta, 
como es que lleve un control claro del IVA de 


El apartado de 
facturacion permite 
almacenar, editar, 
borrar, consultar y 
emitir — claro — 
facturas. 
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proveedores, o que nos haga el inventario. 
Asimismo, no esta claro que contemple diferentes 
tipos de IVA por artfculo, con lo cual, este 
dato deberfa partir de la ficha de cliente, que 
si puede tener diferentes tipos —al menos de 
recargo de equivalencia—. De la ficha sugerirfamos 
que partiesen tambien los datos de descuentos 
que se le hacen a un cliente, que si bien pueden 
variar, lo normal es que un cliente tenga un tipo 
fijo de descuento. Tambien podrfa hablar de 
dejar a election del usuario la localization de los 
datos en las unidades de disco, es decir, que 
hay quien tiene un solo cliente y 5.000 artfculos y 
quien le ocurre todo lo contrario, con lo que a lo 
mejor le serfa mas ventajoso el disponer de la 
unidad B para los clientes. Por ultimo, abogar 
por un control de errores por mala introduction 
de datos, pues es problema frecuente, sobre todo, 
en los primeros contactos con cualquier 
aplicacion. De todos modos, quede claro que esto 
son sugerencias y no defectos, y que un 
programa ideal y a gusto de todos, no existe, y si 
existiese, no estarfa nunca por debajo de las 
20.000 pesetas, que es el caso de este. 

Y solo falta por apuntar un detalle: la 
presentation del paquete, que rompe con lo 
normal de estos casos. Particularmente, nos ha 
resultado agradable, dada la sencillez y lo 
practico de una carpeta del tamaho 
de las que podemos ver para 
juegos, sin que lo que 
contenga sea un 
juego, y lo 
logrado del, 


asimismo, pequeno manual de instrucciones, que 
se ajusta perfectamente a las dudas que puedan 
surgir en un primer contacto con el 
programa. 




HUB 

va-.os 


PS IPS 


re 


5 reser 


ireccion: 


5U5 


inrsns'-' m 

Nadir*.. Stiff®..5J. 

Dinccian.iC/VilUhenioM, s/n 

M on :l»r Lra 

Tskfort- ,:587M12| 


AMSTRAD Semanal 33 
































I na cinta gra 

por la compra 

de numeros atrasados 




Con la compra 
de siete mimeros 
atrasados 
recibiras gratis 
ana cinta de 
programas de 
YOUR 

COMPUTER (el 
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H/sta section esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS , S.A AA1STRAD Semanal. 
jABSTENERSE PI R A TA S ! 


Mercado 

COMUN 


Vendo CPC 664 con monitor 
en color, tapa de plastico para 
el teclado, manuales, mas de 
300 programas, juegos, 
utilidades, gestion y educativos. 
Todo por 85.000 ptas. Llamar 
al tel. 455 30 17 de Madrid. 
Javier. 


Vendo Amstrad CPC 664, 
con unidad de disco; foforo 
verde, disco de CP/M 2.2, 
D.R. Logo, mas 10 juegos por 
65.000 ptas. Juan Carlos Olmos. 
Josep Pla, 177 E, 3. a 08020 
Barcelona. Tel. 303 29 32 
(mananas de 9 a 2). 


Urge vender un Amstrad 

CPC 472 F.V. con un joystick, 
varios juegos, revistas, etc. 
Interesados llamar al tel. 

235 64 00. Barcelona. Preguntar 
por Rafael de 15 a 21 horas. 


Vendo ordenador ZX 
Spectrum 64 K (15 ROM-48 
RAM) con los manuales en 
Castellano. Interface y teclado 
multifuncion Lote de unas 10 
cintas repletas de juegos y 
joystick. Todo por solo 35.000 
ptas. Llamar a Javier al tel. (93) 
258 07 71 (de 22 a 23 horas). 


Vendo Amstrad 6128 con 
pan^illa fosforo verde, as! como 
los siguientes extras y software: 
Supercalc 2 (6128 y 8256), 
Multiplan, 16 juegos, 
Microspread, 2 joysticks, libro 
CP.M Plus, libro Basic 
Amstrad y 50 numeros de 


MICROHOBBY AMSTRAD 
Semanal. Precio total: 110.000 
ptas. Contado. Llamar al tel. 
(91) 248 24 42 (a partir de las 8 
de la tarde). Preguntar por 
Jesus. 


Desearfa contactar con 
usuarios que tuvieran 
instrucciones del juego Mission 
Imposible. A ser posible, 
fotocopia. Pagaria rapidamente. 
Mandar instrucciones a Miguel 
Perez Laguna. Padre Jesus 
Ordonez, 5 duplicado. Madrid. 


Vendo, por cambio de 
equipo, programas de todo tipo 
para IBM PC. Precios 
asequibles. Biblioteca 
extcnsisirna. Llamar al tel. (93) 
244 90 94 6 424 90 94. 


Vendo Amstrad CPC 6128 
con monitor F.V. y 12 discos 
de 3” con tratamientos de 
textos, Base de Datos, Turbo 
Pascal, etc. Todo por 60.000 
ptas. Llamar al tel. (93) 

305 57 40 de Barcelona. 
Preguntar por Felix. 


jOferta! Vendo CPC 6128, 
con monitor fosforo verde. Con 
joystick, fundas, mas de 10 
discos con los mejores 
programas de utilidades y de 
juegos del mercado. Con 
coleccion de revistas y con 
cuatro libros. Todo por 95.000 
ptas. Jose Huescar Sanchez. 
Andalucia 10. 11160 Barbate 
(Cadiz). Tel. 43 09 39. 


Vendo Amstrad CPC 6128 
con monitor de fosforo verde 
(Garantfa). Ideal para 
estudiante de informatica, ya 
que lo vendo con compiladores 
(Cobol, Turbo Pascal, Fortran), 
tambien con utilidades (dBase 
II, Wordstar, Multiplan). Unos 
30 juegos, copiones mas 
utilidades, joystick, revistas, 
curso autodidactico de Basic. 
Todo va con manuales y en sus 
respectivos discos (20). Ademas 
ensenaria el manejo. Lo 
mandaria a cualquier punto de 
Espana. Precio 120.000. Angel 
Luis Navarro Licer. Castrillo de 
Aza, 14. 28031. Madrid. Tel, 
(91) 442 75 07. (Dejad 
telefono). 


Desearfa contactar con 
usuarios del CPC 464 para 
intercambiar juegos. Mas de 50 
tftulos, contestare. Interesados 
escribir a Francisco Honrubia 
Cascales. Teruel, 32, 3.° izda. 
02005 Albacete. 


Vendo Amstrad 664. Fosforo 
verde. Con mas de 20 
programas: Mini Office, Puzzle, 
Base de Datos, Harrier, Bich 
Heard, etc. Precio: 70.000 ptas, 
Tel. (93) 692 58 89 (de 9 a 14, 
o de 16 a 20 horas). 


Me he comprado un 
Amstrad CPC 6128, con 
monitor fosforo verde, hace un 
mes aproximadamente. Aqui 
van mis dos problemas: 

1. Mi monitor es F.V. por 
lo que vefa los juegos buenos en 
un solo color pero con varias 
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gamas. Deseo intercambiar, y 
pagar la diferencia de precio 
entre los monitores, o comprar 
solamente el monitor en color. 

2. Mi otro problema es que 
mi manual de instrucciones 
viene en ingles, ya que el 
ordenador fue comprado en 
Inglaterra. Como no entiendo 
absolutamente nada, solo puedo 
trabajar con un 15 6 25 por 
ciento de las posibilidades de mi 
equipo. Por favor, compro o 
intercambio manual de 
instrucciones para el CPC 6128. 
Fco. Jose Sanchez Nogueira. Avda. 
Camelias, 103, 3.° B. Vigo 11. 
36200 Pontevedra. Tel. (986) 

41 16 56. Tambien me podeis 
escribir al apartado postal 5132 
de Vigo. 


Urge vender ordenador 
CPC 472 (verde), con joystick 
quick shot V, los mejores juegos 
del momento, manuales, mas de 
50 revistas sobre Amstrad, por 
55.000 ptas. (completamente 
nuevo, poco uso), se vende para 
comprar un ordenador mayor. 
Tel. (91) 265 58 98, llamar 
tardes de 6,30 a 10,00, 
preguntar por Miguel Angel. Se 
regalan gran cantidad de cintas 
para almacenamiento de datos. 
Valor actual: 73.000 ptas. 


Vendo Amstrad CPC 464. 
Fosforo verde. Con dos 
mandos. Revistas y mas de 50 
juegos. Todo por 39.500 ptas 
Raton AMX por 9.500 ptas. 
Alexis Gutierrez. Tel. (942) 

27 46 61. 


Vendo lapiz optico 
DK’Tronics compatible con 
Amstrad ^464 y con Amstrad 


664 (no es compatible con el 
6128), o cambio por un lapiz 
optico compatible con el 
Amstrad 6128. Interesados 
llamar al tel. (93) 325 40 80 o 
escribir a Sepulveda, 41, esc. 
dcha. 08015 Barcelona. 
Preguntar por Antonio. Precio a 
razonar: 5.500 ptas. 


Vendo Amstrad CPC 6128 
con garantla, funda protectora, 
15 discketes, armario metalico 
para diskettes, libros y revistas, 
programas de juegos, utilidades 
y profesionales. Llamar a Tomas 
Portillo. Tel. (93) 305 24 07 (a 
partir de las 10 de la noche). 


Vendo Amstrad CPC 464, 
monitor color, mas 21 juegos. 
Interesados llamar al tel. (93) 
418 13 31. Preguntar por 
Alejandro, o bien escribir a 
Alqandro Ripoll. Calatraba, 68, 
l.°-l. a . 08017 Barcelona. 


Vendo Amstrad CPC 6128, 
monitor color, con impresora, 
cassette grabador, joystick y 
otros complementos, as! como 
revistas, cintas y discos. 
125.000 ptas. Preguntar por 
Juan Luis. Tel. (945) 25 00 23. 


Vendo mis libros de 
informatica al 50 por 100 del 
precio de mercado. Editoriales 
Data Becker, Anaya, McGraw- 
Hill, etc. Para toda clase de 
ordenadores personales e 
informatica en general. Gran 
surtido. Contactar con Antonio 
J. Navarro. Marla Maroto 7, 5.° 
A, Murcia. 


Vendo Amstrad CPC 6128 
(monitor color). Nuevo, 
completo y con algunos extras. 
Precio 100.000 ptas. Llamar al 
tel. (981) 31 46 83. El Ferrol. 


Urge vender Spectrum 48 K, 
en buen estado. Ahado 
manuales, juegos, conexiones y 
revistas. Todo por 20.000 ptas. 
Tambien vendo interface 
Kempston y Sinclair con dos 
joystick Quickshot I por 5.000 
ptas. Interesados llamar al tel. 
(96) 333 39 81. Valencia. 
Preguntar por Pablo. 


Vendo Amstrad CPC 6128 
con todo lo que en esta lista se 
menciona: 

Monitor en color, teclado 
profesional en espanol, unidad 
de disco, 128 kbytes de 
memoria RAM, manual que 
contiene, Basic del Amstrad, 
Logo, sistemas operativos 
CP/M 2.2 y CP/M Plus. 
Estructura y conexion del 
ordenador a la red electrica. 
Cable para la conexion externa 
del cassette normal, seis Floppy 
Discks vfrgenes, dos discos con 
las dos versiones del sistema 
operativo anteriormente 
nombradas y, con el Logo y 
Programas del Sistema 
Operativo, un disco con 
procesador de textos. 
Ensamblador Gena-3, editor de 

graficos, juegos, etc_, y 

algunas revistas con programas 
y noticias sobre Amstrad. Todo 
ello a un precio razonable, 
discutible. Interesados llamar al 
tel. 88 00 23 (tardes en dfas 
laborables y a cualquier hora 
los dfas festivos). Escribir a 
Prudencio Perez Calcines. Cristobal 
Colon, 1. La Montana de 
Gaidar. (Las Palmas de Gran 
Canaria). jUrge por cambio de 
ordenador! 


Comprarfa sintetizador de 
voz en castellano (solo 
software). Vendo amplificador 
stereo para el Amstrad de 5,5 
W, con o sin bafle, nuevo. 
Vendo cables de ampliation 
para monitor y alimentation. 
Mi direction es Manuel Antonio 
Ramos Romero. Rodriguez 
Marin, 42. San Juan de 
Aznalfarache. (Sevilla). 
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La utilidad de 
Buffer y Ram Disk 

Me dirijo a vuestra seccion 
para que me contesteis a estas 
dos preguntas: 

( ;Que significan y que utilidad 
tienen los terrninos informaticos 
Buffer y Ram Disk? 

Gracias y adelante con 
vuestra revista. 

Juan Carlos Galan Rodriguez 
(Madrid) 

Un buffer es, sencillamente, una 
memoria intermedia, este tipo de 
estructuras se emplea 
fundamentalmente para ahorrar 
tiempo, o para no perder ninguno de 
los valores que deseamos manipular. 

Al escribir en una cinla o en un 
disco, lo que hacemos realmente es 
enviar los datos a una memoria 
intermedia, donde se van cogiendo 
para depositaries defimtivamente 
sobre el soporte de almacenamiento. 

Lo mismo sucede para el teclado. la 
irnpresora o, practicamente, en 
cualquier operacion donde se manejen 
ficheros de datos. 

El termino Ram-Disk es aim mas 
sencillo de comprender, como su 
traduccion indica, es un disco RAM. 
Este disco se utihza de forma 
identica a como utilizamos una 
unidad de disco normal, se pueden 
hacer todas las operaciones 
habituales, borrar, grabar, leer, 
renombrar. La diferencia esta en su 
gran velocidad de lectura, pern tiene 
el inconveniente de que al apagar el 
equipo se bona su contenido. 

Problemas de grabacion 

Para empezar os dire que soy 
un asiduo lector vuestro y 
aunque tengo varias dudas, 
intentare reflejaros algunas de 
ellas. 

Os dire que poseo un CPC 
6128 y tras haber grabado en 
un disco 35 programas, los 
cuales suman todos ellos 104 
Kb, tengo justamente libres 
todavia 70 Kb. La cuestion es 
que al querer grabar otro 
programa me aparece el 
mensaje de error 
..DIRECTORY FULL... ^Que 
es lo que pasa? Os dire que 
estuve probando con el 
comando «SET» de CP/M para 
^isignar PASSWORD. No se si 
sera esta la causa. ( iPuedo poner 
PASSWORD a un programa 


para no poder acceder a el en 
BASIC?, en ordenadores 
grandes si. 

Otra de mis preguntas es que 
tras haber tecleado el programa 
magnificador de pantalla del 
M.H. numero 46 y tras haberlo 
grabado, no sin antes haberlo 
corregido varias veces. Al 
querer cargarlo y ejecutarlo 
mediante el programa basic: 

10 MEMORY &FFF 
20 LOAD «MAGNI», &A000 
que viene en dicho numero; me 
aparece el mensaje de error 
..MEMORY FULL IN 20». 
/Que es lo que ocurre? 

Emiliano Rosales 
(Cadiz) 

La explicacion al primer problema 
se encuentra en que el disco del 
Amstrad solo admite un numero de 
determinados ficheros en un disco, ya 
que este es el trozo reservado para los 
datos necesarios del directorio. 

Si puedes poner PASSWORD a 
lus propios programas, bastard con 
que incluyas estas dos pnmeras Uneas 
en el programa que desees protegee: 

10 INPUT <<>»; PASSWORD: 

IF PASSWORD ‘«ROMEO„ 
THEN NEW ELSE CLS 

El programa basic, deberd haberlo 
grabado con la opcion «P» (save 
«nombre», P). 

Para resolver su segundo problema, 
bastard con que incluya la siguiente 
linea: 

1 openout «RESERVA» 

Para copiar programas 

Soy un gran adicto de todo lo 
relacionado con el mundo del 
Amstrad y poseedor de un CPC 
464. 


En una revista (creo que era 
la vuestra/nuestra), aparecia el 
listado de un copion. Esto me 
produjo una gran alegrla, pero 
cuando me disponfa a copiar un 
programa turbo (de los 
conocidos como ..cargado por 
rayas») vi que esto no era 
posible. 

Probe con otros programas 
comerciales de este tipo y 
comprobe que tampoco se 
podia. 

El favor que les pido es, 
pues, que me indiquen como 
copiarlos. 

Si esto no es posible por falta 
de espacio, les ruego lo 
publiquen en la seccion de 
TRUCOS, ya que resultaria de 
un gran interes para muchos 
usuarios que se encuentran con 
mi mismo problema. 

Jose Vicente Sanchez Ortega 

No solo es posible contestarle 
positivamente desde esta seccion, sino 
que no existe tal «truquillo», 
desprotegedor universal de programas 
comerciales. Hoy en dia, uno de los 
oficios que mas se cotizan es el de 
«protegedor» de programas 
comerciales. Realmente, la labor de 
estos hombres roza la artesania y 
para romper uno de sus productos 
hace falta mucha inteligencia e 
imaginacion. 

Existen dos soluciones posibles a 
su problema: la primera es que 
ataque directamente, y, una por una, 
cada una de estas hasta que las 
«reviente». La segunda solucion es 
realizar, una vez cargado el 
programa, un cion de la memoria. 

Por desgracia, para realizar esta 
tarea es absolutamente imprescindible 
contar con el apoyo del hardware. 
Actualmente, que sepamos, existen en 
el mercado espanol dos perifericos que 
realizan esta tarea, se trata del 
Multiface TWO, que distribuye 
Babeta y del MIRAGE que 
comerciaUza British Soft. 

De todos modos, y para no 
llamarnos a engaho, queremos 
resaltar que los clonicos de los 
programas copiados no funcionan en 
ausencia del periferico, esto es, para 
jugar, el periferico deberd estar 
conectado al ordenador. Esta 
caracteristica inhabilita el periferico 
para prdcticas piralas y le confiere 
exclusivamente una utilidad casern, 
para realizar copias que tengamos en 
cinta, en disco, o viceversa, o 
simplemente como sistema de 
seguridad. 
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C/ Duque de Sesto, 50. 28009 MADRID 
Metro O'Donnell o Goya 



PTAS. 


PTAS. 

THEY SOLD A MILLION III 

2 500 

NONAMED 

2.100 

ASTERIX 

2.100 

4 SUPER 4 

2.500 

TOP GUN 

2.100 

ARMY MOVES 

2.300 

FAT WORM 

2100 

GAME OVER 

2.300 

REVOLUTION 

2.300 

COBRA 

2.100 

RAMON GUTIERREZ 

1.900 

COONIES 

2.300 

GAUNLET 

2.300 

ANTIRIAD 

2.100 

BREAKTHRU 

2.300 

AVENGER 

2.100 

DUSTIN 

2100 

FIRELORD 

2.100 

ARQUIMEDES XXI 

2.100 

URIDIUM 

2.100 

FIGHTING WARRIOR 

495 

BOUNTY BOB 

495 

DUMMY RUN 

495 

SOUTHERN BELLE 

495 



NOVEDADES DE KONAMI (10 JUEG0S)+REL0J ROBOT 0 CALCULADORA 1.850 





POR CADA PROGRAMA QUE COMPRES 
iiGRATIS!! UNOS CASCOS DE MUSICA ESTEREO 
SI TU COMPRA ES SUPERIOR A 800 PTAS. 


SERVICIO TECNICO DE REPARACION 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIEN A PROVINCIAS 
SIN GASTOS DE ENVIO 


IMPRESORAS 
20% DE DESCUENTO 


CASSETTE ESPECIAL 

PTAS. 

3.995 

LAPIZ OPTICO 

2.890 

CARTUCHO MICRODRIVE 

545 

CARTUCHERA 4 MICRODRIVES 

95 

INTERFACE SONIDO TV 

2.595 

INTERFACE CENTRONICS RS-232 

8.495 

DISKETTES 3” 

735 

DISKETTES 5 1/4” 

295 

CINTA C-15 ESPECIAL ORDENADOR 

69 

INTERFACE MULTIJOYSTICK 

3.795 


iiOFERTAS EN JOYSTICKS!! 

PTAS. 

QUICK SHOT I 

1.195 

OIJICK SHOT II 

1.495 

OIJICK SHOT V 

1.495 

OUICK SHOT IX 

1.995 

QUICK SHOT 1 +INTERFACE 

2.495 

QUICK SHOT 11 +INTERFACE 

2.795 

QUICK SHOT V +INTERFACE 

2.795 

QUICK SHOT IX + INTERFACE 

_ 3.395 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-8256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEL. (91) 

275 96 16 - 274 75 02 O ESCRIBIENDO A: MICRO-1. Cl DUQUE DE SESTO, 50. 28009 MADRID. 

Tiendas y distribuidores grandes descuentos. 

Dirigirse a Diproimsa. Cl Galatea, 25. Tel. (91) 274 75 03. 










































































GESTION 


FACTURAS AL INS1ANTE 
Y SIN PROBLEMAS (V) 


PCW 8256 


PCW 8512 


En este V capitulo del 
programa de facturacion, 
ofrecemos un amplio listado 
para conseguir el IVA 
repercutido, una autentica 
utilidad para cualquier 
profesional, quc viene a 
engrosar, junto con otro 
pequeno listado sobre la 
reestructuracion del fichero de 
lineas, este extenso programa 
de gestion. 


PROGRAMA BAS 



IISFACTU BAS 


5 ON ERROR SOTO 20000 

391 OPEN "R*,3,"a:resu6ien.tex*,25 

10 G0SVB 11440 

392 FIELD 3,4 AS n.fact*,6 AS fecha.ft,3 AS cli.fM A 

20 GDSUB 11260 

S base.ft,4 AS iva.ft,4 AS rec.ft 

25 total=0:contador=0 

393 SET 3,1 

26 LFRINT CHRK18)! 

394 ultimo.registro=CVS(iva.ft):ultima.factura=CVS(rec 

30 PRINT FNIoct(10,4);*L I S T A 0 0 0 E I V A R 

.ft) 

EPERCUTID0* 

395 li.fac=2 

40 PRINT FN1oc $(50,8)»"Fee ha de expedition : * 

396 SET 3,li.fac 

120 xI=73:yK=8:alfal=2:cap*=61dec4=0:S0SUB 10000 

397 n,fact.e=CVS(n.faett):fecha.et=fecha.ft:codlt=c1i. 

125 IF t$=” THEN CHAIN B *enu 

f t'.base. l s CVS(base.ft): iva=CVS( iva.fi): rec=CVS( rec. ft) 

130 fechat=tt:60SUB 10310 

398 IF codl$ s * * OR codlt^" OR codlt=STRINGt(3,CHRt 

140 IF fechat="fallo!" THEN 120 ELSE fechaet=fechat 

(0)) THEN 630 

145 PRINT FNloc$<73,8)j fechae$j" 8 

400 cadt=STRINGt( 128, CHRt(0)):noi»fibatt="a:ct lien tex" 

370 PRINT FNloct(5,28)j"C0RRECTQ (INS) CANCELAR (CAN) 

:noefiindt="a:cc1ien.key":nu»fi*=2 

: "iI60SUB 11380 

410 ranK=l:clat=codlt:tipt=l 

375 PRINT FNlo£t(10,2);* * 

420 G0SUB 10440 

380 GQSUB 11500 

430 IF ferrorHOO THEN 340 

390 IF bien*=0 THEN 340 

440 nosbret=MIDt(cadt,1,29) 


390 IF t 
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450 IF contador=0 THEN 60SU8 1000 
450 60SUB 7000 

625 contador=contador+l: IF contador=60 THEN LPRINT CH 

R$(12):contador=0 

630 li.fac=li,fac+l 

640 IF li.fadultimo.registro THEN GOSUB 6000:LPRINT C 
HRt(12):CLOSE 3:GOSUB 2000:G0T0 10 
700 GOTO 396 

1000 '-cabecera- 

1050 LPRINT CHR${18)i"LISTftDO DE IVA REPERCUTIOO'S 
1060 LPRINT TfiB(50)i"Fecha de emision : ";fechae$:LPRI 
NT 

1065 LPRINT CHR$(15)j*NUM.F FECHA DESC 

RIPCION BASE.IMPON IVA CUOTA 

REC CUOTA TOTAL.FA 
CT* 

1070 LPRINT •. 


1080 RETURN 

2000 '-borrado de archive- 

2010 PRINT FNloc$(5,28)j*Borra el archive de facturas 
(S/N) : *i:rt=INPUT$(l) 

2020 IF rtO’N* AND rSO'S* THEN 2010 

2030 IF r$="N" THEN RETURN 

2040 ERA a: resuaen.tex 

2050 OPEN *R' 1 3, , a:resu»en.tex",25 

2060 FIELO 3,4 AS n.fact!,6 AS fecha.ft,3 AS di.fM 

AS base.f4,4 AS iva.ft,4 AS rec.f$ 

2065 LSET n.facU=MKS$(0) 

2070 LSET fecha.ft=* 

2080 LSET di.ft=* • 

2090 LSET base.ft=MKS$(0) 

2100 LSET rec.ft=MKS4(ulti»a.fadura):LSET iva.f$=MKSt 
( 2 ) 

2110 PUT 3,1 
2120 CLOSE 3 
2130 RETURN 

6000 ' - linea de totales - 


6010 LPRINT 

6020 LPRINT " T 0 T A L B R U T 0 

: “SILPRINT USING *#,#»#,###";total .fa 

6030 LPRINT ’ T 0 T A L I. V. A. 

: ';:LPRINT USING *#,###,###*5 total.i 

6040 LPRINT ■ T 0 T A L R E C A. 

: "SILPRINT USING B i,total.r 
6060 total.b=0:total.i=0:total.r=0 
6065 LPRINT 
6080 RETURN 

7000 ' -Inpresion de lineas- 


7010 ut=*#,### V \ \ 

\ ##,###,»## ### *#l,t«l m #14, III 

##,###,###* 

7020 LPRINT USING u$jn.fact eifecha.efjnoabretjbase.1; 
ivajbase.Uiva/100;rec;base.llrec/100;base.1+base.Itiv 
a/100+base.l*rec/10Q 

7030 total. r=total.r+base.ilrec/100:total,b=totaI.b+ba 


se.1:total.i=total.i+(base.Uiva/100) 

7040 RETURN 

10000 REM-control de digitos - 

10010 REM xX=colu8na yX=fila capX=capacidad 
10020 REM decX=deci#ales alfaX=nu»erico(l) alfa 
nuaericos (2) alfanuacoa (3) 

10030 REM - 

10040 PRINT FNloc«xX,yX)5STRINGt(capX+decX+l,* ') 
10050 tt=—: t=0: r$=**:fal loX=0: puntoX=0 
10060 PRINT CHR$(7) 

10070 xlX=xX 

10080 PRINT FNloc$(xlX,yX);:r*=INPVTt(l) 

10090 r=ASC(r$) 

10100 IF r=13 THEN 10170 

10110 IF r<32 OR r>255 THEN 10080 

10120 IF r=127 AND t>0 THEN t=t-l:tt=LEFT$(t$,t): PRIN 

T FNlocf <x%, y*)j t$|“ ":GOTO 10080 

10130 IF r=127 AND t=0 THEN 10080 

10140 t=t+l 

10150 IF t>capX+decX THEN t=t-l:G0T0 10080 
10160 t*=»+r$:PRINT FNloct(xX,yX)}tt:GOTO 10080 
10170 REM-validacion- 


10180 IF alfaX=2 THEN RETURN 

10190 IF alfaX=3 THEN t$=tt+STRING*<capX-LEN(t$)," *): 

RETURN 

10200 FOR nuaericoXd TO LEN(tl) 

10210 rt=HID4(t$,nufiiericoX,l) 

10220 IF <r$<*0" OR r*>“9") AND r*0\” THEN falloXd 
10230 IF rt=\" THEN puntoX=puntoX+l 
10240 NEXT nueericoX 

10250 IF falloXd OR puntoXM THEN 10000 
10260 t#=CDBL(VAL(tt)) 

10270 t#=t#410*decX 
10280 t#=INT(t#) 

10290 t#=t#/10“decX 
10300 RETURN 


10310 REM---fecha- 

10320 REM la fecha sieapre 6 digitos 

10330 REM - 


10340 IF LEN(fecha*)<>6 THEN fec ha$=" fa11 o! ”: RETURN 
10350 fi=VAL(MID$<fechat,i,25) 

10360 f2=VAL(MIDt(fechal,3,2)) 

10370 f3=VAL(MIDt(fechat,5,2)) 

10380 IF fl<i OR f2<1 OR f1)31 OR f2>12 THEN fechat="f 
allo!":RETURN 

10390 f4=(f2=l)+(f2=3)+(f2=5)+(f2=7)+Cf2=8)+(f2=10)+(f 
2 = 12 ) 

10400 IF fl>30 AND NOT f4 THEN fechat="fallo!”:RETURN 
10410 IF fl>29 AND f2=2 THEN fecha$="falio!":RETURN 
10420 IF f1>28 AND f2=2 AND f3 MOD 4=0 THEN fecha$=*fa 
1lo!":RETURN 

10425 fechat=MI0$(fechat,l,2)+“-'+MIDt(fecha$,3,2)+"-* 
+MI0$(fecha$,5,2) 

10430 RETURN 
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10440 REM 


ficheros 


10450 REM 
10460 REM 
10470 REM 
10480 REM 
10490 REM 
10500 REM 
10510 REM 


10520 REM 
10530 REM initio 
10540 BUFFERS 10 
10550 longregX=LEN(cadt) 

10560 OPEN *K",nuisfi*,noisfidat*,noisfiind$,2,longreg* 
10565 longregX=LEN(cadi) 

10570 FIELD nusfiX.longregX AS fict 
10580 ON tip* 60SUB 10630,10710,10820,10930,11000,1109 
0 

10590 IF tipKl OR tip*>6 THEN 10620 
10600 resX=CONSQLIDATE(nu»fiX) 

10610 CLOSE nusfiX 
10620 RETURN 

10630 REM lectura de una clave 
10640 res*=SEEKKEY<nwf i*, 0, ran*, c la*) 

10650 IF resXOO THEN ferrorX=resX:RETURN 

10660 ferrorX=0 

10670 nu#X=FETCHREC(nu#fiX) 

10680 GET nusfiX.nunX 
10690 cad*=fict 
10700 RETURN 

10710 REM — lectura de la clave siguiente 
10720 res*=SEEKKEY(nuBif i*,0, ran*, c la*) 

10730 IF resXOO THEN ferrorX=resX:RETURN 

10740 ferror*=0 

10750 resX=SEEKNEXT(nuef i *, 0) 

10760 IF resXOO AND resXOld AND res*<)102 THEN ferr 

or*=resX:RETURN 

10770 ferrorX=0 

10780 nunX=FETCHREC(nurafi*) 

10790 GET nusfiX.nusX 
10800 cad*=fit* 

10810 RETURN 

10820 REN lectura de la dave anterior 
10830 resX=SEEKKEY( nuaf i*,0,ran*,cla*) 

10840 IF resXOO THEN ferror*=res*:RETURN 

10850 ferror*=0 

10860 resX=SEEKPREV(nusf i X, 0) 

10870 IF resXOO AND resXOlOl AND res*<>102 THEN ferr 

orX=resX:RETURN 

10880 ferrorX=0 

10890 nusX=FETCHREC(nu»fiX) 

10900 GET nuafiX,nuftX 
10910 cadt=fic* 

10920 RETURN 

10930 REM - borrar un registro 


GESTION 


10940 resX=SEEKKEY{nusfiX,0,ranX,da*) 

10950 IF resXOO THEN ferrorX=resX:RETURN 

10960 ferrorX=0 

10970 resX=DELKEY(nusfiX,0) 

10980 IF resXOO AND resXOlOl AND resXO102 AND res*< 
>103 THEN ferrorX=resX:RETURN 
10990 ferrorX=0:RETURN 

11000 REM-altas de claves 

11010 res*=SEEKKEY(nu#fiX,0, ranX.dat) 

11020 IF resX=0 THEN ferrorX=900:RETURN 

11030 ferrorX=0 

11040 LSET fic*=cadt 

11050 resX =ADDREC(nu*fiX, 0 ,r an*, d a*) 

11060 IF resXOO THEN ferrorX=resX: RETURN 
11070 ferrorX=0 
11080 RETURN 

11090 REM-acidification de registros 

11100 r esX=SEEI(KE Y( nusf iX,0,ranX,da*) 

11110 IF resXOO THEN ferrorX=resX:RETURN 

11120 ferrorX=0 

11130 nuaX=FETCHREC<nu»fiX) 

11140 GET nusfiX.nuB* 

11150 LSET fic*=cad* 

11160 PUT nusfiX 
11170 RETURN 

11180 REM-borrado de la pantalla — 


11190 REM pri. 1 inX=l hnea ult.linX=ultiBa linea p 
ri.colX=l tolusna 

11200 REM ult.colX=ulti»a colusma 

11210 REM - 


11220 FOR plX=pri.lin* TO ult.linX 

11230 PRINT FNlocKpri,colX,plX)!SPC(uIt.colX-pri col* 

) 

11240 NEXT plX 
11250 RETURN 

11260 REM-sarco de la pantalla- 


11270 11*=CHR*(134)+STRING*(87,CHR*(138))+CHR*(140) 
11280 PRINT el*;11* 

11290 FOR pl=l TO 26 

11300 PRINT CHR*(133)jSTRING*(87,CHR$(32));CHR*(133) 
11310 NEXT pi 

11320 PRINT CHRt(135)iSTRINGt(87,CHRt(138))>CHR*(141) 
11330 FOR pl=l TO 1 

11340 PRINT CHR*(133)5STRIN6*(87," ")5CHR*(133) 

11350 NEXT pi 

11360 PRINT CHR*(131)iSTRING*!87,CHR*<138))jCHR*(137) 
11370 RETURN 

11380 REM-correcto s/n- 


11390 r$»":«HLE r*0°S- AN0 rtO'N' 
11400 r*=!NPUTt(l) 

11410 WEND 

11420 IF rt^S'' THEN bienXd ELSE bienX=0 
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GESTION 


11430 RETURN 

11440 REN-iniclalizacion 


11450 clt=CHRI(27)+"E*+CHR*(27)+*Y" 

11460 OEF FN L0CI(x,y)=CHRI<27)+”Y”+CHRI(32+y)+CHRI(32 
+x) 

11470 RETURN 

11480 REM c.digitos 10000,fecha 10310,archives 10440,b 
orrado 11180,aarco 11260,cor recto 11380,inicializacion 
11440 

11500 REM - liffipia linea mensajes - 

11510 PRINT FNloc*(5,28)j” 

■:RETURN 


20000 PRINT cl* 

20010 PRINT FNloc*(10,10)j*[[ ERROR !! : Coapruebe si 
el disco del iapulsor 'A' es el correcto * 

20020 PRINT FNloct(10,12);"Si es correcto pulse (INS) 
en caso contrario casbielo y pulse (CAN)” 

20030 PRINT FNloc*(10,28)! 

20040 G0SU8 11380 

20050 IF bienl!=l THEN PRINT FNloc*( 10,28)J"Error ";ERR 
}" en la linea “jERLjVLlaae al servicio tecnico ";:F0 
R g=l TO 5000:NEXT g:CHA 
IN "aenu 

20060 IF ferrorOO THEN GOTO 20 
20070 RESUME 20 


CAMBIO BAS 



10 OPTION RUN 

20 PRINT ">REESTRUCTURACION DEL FICHER0 DE LINEAS 

30 PRINT “>” , . . 

40 PRINT ”>Quite el disco de programs del lapulsor h 

e mserte el disco de dates" n 

50 PRINT ">Cuando este preparado pulse una teda. 

60 rl=INPUTI(l) 

70 ERA ati.bas 

90 OPEN "R",2,”a:albaran.tex",57 

100 OPEN ”R”,l,"a:albaran.tex',57 

110 FIELD 2,3 AS a*,6 AS bl,40 AS c*,4 AS d*,4 AS el 

120 FIEL0 1,3 AS cod.clil,6 AS fecha,al,40 AS desenpe 

ionl,4 AS cantidadl,4 AS preciol 

130 GET 1,1 

140 ultimo.registro=CVSCprecio$) 

ISO n l=2:n.2=2 

160 yHILE n K=ultiao.registro 
170 GET 1,n.1 

180 IF cod dilO'OOO” THEN GOSUB 390 
ISO n.l=n. 1+1 
200 WEND 
210 CLOSE 1 

220 LSET el=MKSI(n,2-l) 

230 PUT 2,1 

240 ERA alaibaran.tex 

250 OPEN *R*,l,*a:albaran.tex*,57 

260 FIELD 1,3 AS cod clil,6 AS fecha.al,40 A^ descripc 


ionl,4 AS cantidadl,4 AS preciol 
270 GET 2,1 
280 u.r=CVS(el) 

290 n 1=1 

300 WHILE n.l<=u.r 
310 GET 2,n.l 
320 LSET cod.di!=al 
330 LSET fecha.al=bl 
340 LSET descriptionl=cl 
350 LSET cantidad*=dl 
360 LSET preciol=et 
370 PUT l.n.l 
37S n.l=n.l+l 
380 WEND 
382 CLOSE 1 
°83 CLOSE 2 

384 PRINT ”>Reestructuracion teramada. Recuerde reim 
cializar el sisteaa si ha de” 

385 PRINT ">continuar trabajando 

386 SYSTEM 

390 LSET al=cod.clil 
400 LSET bl=fecha.at 
410 LSET ci=descripcionl 
420 LSET dl=cantidadl 
430 LSET el=preciol 
440 PUT 2,n.2 
450 n.2=n.2+l 
460 RETURN 
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Analisis 
de inversiones 


En estos tiempos de crisis, cuando 
todos pensamos en el manana, en 
invertir y sacar el maximo partido 
a ese pequeno capital que hemos 
ido atesorando durante anos, 
recurrir a ese trasto gris que se 
empolva en un rincon, y del que 
solo se utiliza el joystick, puede 
resultar una buena idea. A1 menos, 
asi lo cree R H. Mole, autor del 
libro Analisis financiero de la 
coleccion Anaya Multimedia. 

El libro recoge a lo largo de sus 
185 paginas, una rapida, pero 
severa revision, de los puntos mas 
imporlantes de la teorfa de la 
inversion, enfocandola 
fundamentalmente desde la ayuda 
que el usuario de 

microinformatica puede encontrar 
en su micro. 

El Basic en que estan realizados 
todos los programas del libro, 
puede considerarse de lo mas 
estandar y no hay duda de que 
correra en cualquiera de los 
modelos de Amstrad, ya sea CPC, 
PCW o PC. 


Hipotecas, intereses, coste de 
capital y criterios paralelos, son 
algunos de los complejos conceptos 
que se manejan a lo largo del libro 


y sobre los que se realizan un 
numeroso conjunto de programas 
Basic, explicados, quizas de forma 
excesivamente rapida, para el 
usuario novel. No obstante, aun 
para aquellos que hayan desistido 
de aprender informatica hace 
mucho tiempo, el libro constituira 
una extensa fuente de utilidades 
informaticas, encaminadas a la 
inversion, con las que llenaremos 
mas de un disco y que quizas, 
,:quien sabe,..?, algun dia, acaben 
por hacernos ricos. 


Desde que Saymour Papert 
disenase su primer interprete de 
Logo, la famosa tortuguita no ha 
dejado de arrastar su caparazon 
por el mundo, sobre todo por las 
escuelas, dejando a su paso todo 
un rastro de cfrculos, elipses, 
espirales y cuadrados. 

Ultirriamente, por fortuna cada vez 
mas, la tortuga esta saliendo de ese 
caparazon de artisla frustrado y 
parece que empieza a emplearse 
para cosas cada vez mas serias. En 
este caso le ha tocado el turno a la 
Ffsica, y viene tambien de la mano 
de la editorial Anaya Multimedia. 

Evidentemente, el Logo no 
podra compararse nunca en 
potencia numerica con el Fortram, 
sin embargo en aplicaciones 
sencillas, que no simples, donde se 
utilizan unicamente numeros 
enteros o reales, el Logo puede 


Tftulo: Analisis de inversiones 

Autor: R. H. Mole 
Editorial: Anaya Multimedia 
Paginas: 185 
Precio: 1.537 ptas. 


Ffsica 
con logo 


resultar, tal y como demuestra 
Richard D. Hurley, autor del 
libro, una herramienta de 
w desarrollo, potente, facil e incluso 
^ divertida. 

Los temas que el libro recoge 
son de lo mas variado y van desde 
el archiconocido problema de los 
zorros y los conejos, hasta la 
exposicion de la exoterica Ley de 
Hubble relativa a los lfmites del 
Universo. 



El Logo utilizado es un Logo 
hibrido que intenta, como en el 
caso anterior, satisfacer a la 
mayorfa de los computadores. La 
edicion espanola del libro ha 
optado por traducir las palabras 
Logo al castellano, cosa no muy 
acertada, pero que quiza tras la 
puesta en marcha del proyecto 
Atenea, este completamente 
justificada. Por otro lado, se 
agradece de vez en cuando ver un 
programa de ordenador escrito en 
castellano. Esto no debe suponer 
un handicap insuperable para 
cualquier aficionado al Logo, que 
sera completamente capaz de 
traducir a su propio interprete los 
distintos procedimientos. 

En las ultimas paginas del libro, 
apendice B, aparecen traducidos a 
la sintaxis MIT, los programas 
mas importantes desarrollados a lo 
largo de la obra. 
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A mano, pero no tanto 

Para los amantes del etiquetado 
familiar, para los oficinistas, 
comerciantes o, en fin, para todos 
aquellos que dan una aplicacion 
practica o profesional a la 
impresora, Zubiri presenta estas 
etiquetas en continuo. Una vez el 
ordenador en marcha y la 
impresora preparada, tan solo nos 
restara introducir las etiquetas y ya 
casi esta. Lo que falta es pegarlas, 
operation que habra que realizar a 
mano, por ahora... El paquete que 
veis en la fotograffa lo encontrareis 
en Compuworld (Alberto Aguilera, 

17. Madrid). 6.000 etiquetas por 
4.875 ptas. 


1 


autoaahesivas 
en continuo 



Un buen nombre 


Estos americanos van tan 
deprisa, tan deprisa, que en su 
afan por acabar antes, cortan 
muchas palabras por la mitad. 
Tomemos, por ejemplo, el nombre 
de este joystick: «Pro». Asf como 
suena, no nos dirfa nada, salvo 
que «pro» es una abreviatura muy 


comun en USA y que significa, ni 
mas ni menos, que profesional. Si 
con tal nombre se nos presenta este 
joystick, nos augura tener en las 
manos un «matamarcianos 
profesional». Su precio en 
Coconuts (Tutor, 50. 28015 
Madrid) es de 3.400 ptas. 






•>- zueffifiSA 



El nombre de la aventura 

Moonraker fue, hace ya tiempo, 
la vuelta de James Bond 007 a las 
pantallas. En aquella pelfcula, con 
todos los ingredientes de una 
buena aventura (el bueno, el 
malfsimo, las chicas estupendas...), 
se introducen tambien 
transbordadores espaciales, viajes 
al espacio, rayos laser, en fin, 
todos los ingredientes de un juego 
trepidante y actual de ordenador 
con inspiration espacial. 

Moonraker es tambien el nombre 
de este joystick. Sin duda, ya nos 
sonara a aventura espacial, y 
cuando sus ventosas se sujeten a la 
mesa y la carga del programa este 
finalizada, tan solo nos restara 
sujetarnos a la silla. El Moonraker 
lo encontrareis en Coconuts 
(Tutor, 50. 28015 Madrid) por 
2.200 ptas. 
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Caben mas 

Cuando se trabaja con discos, 
surge la necesidad de tenerlos 
recogidos, almacenados y 
clasificados y no revueltos por 
cualquier sitio y al alcance de 
cualquiera. Si a todo esto 
sumamos el poder hacerlo en un 
solo paquete y en un recipiente 
util para su transporte, mejor 
que mejor. Aquf teneis este 
archivador «Disk» para discos de 
5 Su capacidad es de 100 
unidades, con las que tenemos 
bastante material, y cuenta con 
separadores para diferenciar los 
distintos temas. En Computer Cash 


& Carry (Principe de Vergar i 
Madrid) lo encontrareis poi 12 80 ptas 


A su nivel 


Desde hace ya tiempo, y segun 
avanza la tecnica, las necesidades 
anatomicas del ser humano se 
tienen cada vez mas en cuenta, de 
cara a proporcionar al hombre 
mayor comodidad en su vida 
cotidiana y en su trabajo. 

Tomemos como ejemplo esta mesa 
para ordenador Laster. 

En su superficie hay suficiente 
espacio para un equipo informatico 
completo, contando con un rebaje 
horizontal para situar el teclado a 
su justa altura o, dicho de otro 
modo, de manera ergonomica. Los 
cables no quedan a la vista, pues a 
traves de las patas, que son 
huecas, pasan hasta el suelo, 


Ganar en altura 

Uno de los problemas que 
acucian al hombre y al desarrollo 
de la sociedad y su mundo en 
general es la falta de espacio. 
Soluciones se aportan 
constantemente, a cual mas 
ingeniosa y efectiva. Si tomamos el 
mundo de la informatica, nos 
encontraremos con que un 
completo pero basico equipo, 
supone unos cuantos elementos que 
normalmente se desparraman por 
encima de una mesa cualquiera. Si 
buscas algo mas especial, tienes la 
mesa Microgayma. Su virtud 
reside en un ordenamiento vertical 
de los diversos elementos, de tal 
manera que en el ancho del 
teclado, pero en distintas alturas. 
se colocan impresora, monitor, 
unidad central, teclado, papel, etc 
La encontrareis en Computer 
Cash & Carry (Principe de 
Vergara, Madrid) por 42.750 ptas 


evitando lfos y enganchones, 
ademas de contribuir al aspecto 
estetico. En cuanto a su transporte, 
es ligera de peso y desmontable. 

La encontrareis en Sprind (Lopez 
de Hovos. 27. Madrid) y su precio 
es'de 53.760 ptas. 


No te cortes 


Es espantoso pensar en un corte 
de luz mientras trabajamos 
intensamente en un programa, ya 
sea desarrollandolo nosotros o 
utilizandolo. 

Horas de trabajo se pueden ir al 
traste por una sobrecarga de la red 
o una averfa. Para solucionar estos 


problemas tenemos esta fuente de 
alimentacion de emergencia. 
Mientras la luz funcione 
correctamente, la fuente almacena 
energia, pero en el momento en 
que la luz salte, en tan solo 
cuarenta milisegundos, la fuente 
proporcionara energia suficiente 
para que, durante unos veinte 
minutos, podamos salvar el 
programa, los resultados o bien 
solucionar la sobrecarga, si esta en 
nuestras manos. Se trata de la 
Ondyne Power Lab 400, y la 
encontrareis en Sprind (Lopez de 
Hoyos, 27. Madrid) por 99.680 
ptas. 


Los precios que acompanan estas fotografias incluyen el 12% de 1VA y han sido facilitados por los comerciantes que se citan. 
Se ojrecen a titulo informative al margen de toda publicidad. Pueden sufrir variaciones. 
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Primeros pasos 
en Forth 


Una de las diferencias existentes entre el Forth y otros lenguajes 
radica en el manejo del STACK, que consiste en un tipo de memoria 
en la que podemos ir introduciendo elementos (numeros, caracteres, etc.) 
y tiene la caractenstica de darnos, cuando se lo pedimos, el ultimo 
elemento que habiamos introducido en el. Pern\ ^como introducir un 
valor en el STACK? 


Je sugerimos que antes de nada cargue en la 
memoria de su Amstrad el interprete Forth cuyo 
listado publicamos en nuestro Especial numero 3. 
Es la herramienta necesaria para ir probando 
todo lo que aquf le vayamos contando. 

Un numero se almacena en el STACK 
simplemente escribiendo y despues pulsando 
RETURN Por ejemplo, si escribimos: 

3 

y a continuacion damos a RETURN, el numero 
3 se almacena en el elemento superior, y todavia 
unico, de la PILA. 

Guardemos ahora otro valor. Escriba ahora 
327 y como siempre, RETURN. El 327 se 
guardara justamente en el nuevo elemento 
superior o «tope» del STACK. Entonces 
tendremos ya dos posiciones llenas: en la inferior 
esta el 3 que mtrodujimos antes y en la superior, 
la de encima, el 327 ultimo. 

Si queremos visualizar alguno de ellos el Forth 
tiene una palabra definida que se emplea para 
hacerlo: «.» (punto). Compruebelo tecleando: 

. (punto) 

seguido de RETURN. Teoricamente, le 
aparecera en la pantalla el ultimo numero 
almacenado —el 327—. 

Vuelva otra vez a escribir el punto y esta vez, 
el interprete Forth imprimira el actual tope de la 
PILA, o sea, el 3. Repita la operacion. Como no 
nos queda todavia algun elemento lleno en el 
STACK, no parece muy ilogico que el interprete 
nos obsequie con un mensaje de error: 

Desbordamiento de la capacidad minima del 
STACK. 

Si se entiende de esta forma un poco mas 
claramente la rnanera en como se almacenan y 


visualizan los numeros en este tipo de memoria 
solo puede recordar que: «el ultimo en entrar es 
el primero en salir». 

Vamos a crear ahora una nueva «palabra» 
Forth. Este concepto es el equivalente al de 
subrutina en Basic. Escriba pues: 

* PALABRA I * 

Va a servir para escribir en la pantalla nuestra 
edad. 

Para invocar a esta nueva «palabra» solo es 
necesario eso, llamarla. Teclee: 

edad 

Si aparece otra vez el mismo mensaje de error 
extendamos la conclusion que sacamos 
anteriormente a este nuevo caso: jhay que 
introducir un valor en el STACK! Escriba 
entonces: 

18 edad 

y ahora si funciona todo correctamente. La 
«palabra» que hemos creado imprime un mensaje 
y despues toma el elemento superior de la PILA 
para tambien visualizarlo, dejando el STACK 
vaclo. 

Definamos otra nueva «palabra». En esta 
ocasion escribira un texto parecido al que vimos 
anteriormente pero refiriendose a la edad de dos 
personas, Si imprime dos edades, se deduce que 
para cjue esta «palabra» funcione correctamente 
necesitara que en el STACK haya almacenados 
al menos dos valores. 

* PALABRA II * 

Habiamos quedado que necesita dos 
parametros, as! que para invocarla requeriremos 
primero introducir los dos valores de las edades 
que queremos escribir y a continuacion llamar a 
la «palabra». O sea: 
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22 16 edades 


,;Quiere cambiar los parametros? Pues teclee 
otros, por ejemplo. 

34 21 edades 

,:En que orden tendremos que colocar las 
edades? Recuerde que el primer elemento que 
sale del STACK es el ultimo que se almaceno, 
as! que necesitaremos introducir primero la edad 
de Pepe, ya que es la ultima en escribirse, y 
despues la de Juan que visualizaremos en primer 
lugar. 

Dos cosas han de quedar claras en esta 
ocasion. La primera es el descubrimiento de una 
nueva palabra Forth que sirve para extraer un 
valor, precisamente el que ocupa la position mas 
alta de la PILA, y a continuation lo imprime: 

«.». Repetimos que el numero se saca del 
STACK dejando un hueco libre despues de 
visualizarse. 

La segunda es la forma de pasarle parametros 
a una «palabra», o rutina, Forth. Se asumira que 
los hemos situado ordenados correctamente en la 
parte alta de la PILA antes de ser invocada. ,:De 
acuerdo? 

Lo dejamos de momento. Si quiere, defina una 
«palabra» mas en la que se utiliza CR para 
separar la edad de nuestros amigos PEPE y 
JUAN y dejar las cosas mas claras. 

* PALABRA III * 

Si despues tecleamos: 

22 45 separaedad 

la veremos en funcionamiento. Hasta pronto. 
PALABRA I 

: EDAD TENGO”. ANNOS” 

PALABRA II 

: EDADES JUAN TIENE” ANNOS Y 
PEPE” . CR ; 

PALABRA III 

: SEPARAEDAD JUAN TIENE” 

ANNOS” CR Y PEPE” .” CR ; 


Para poder ejecutar los programas que a 
continuacion explicamos, pueden utilizar el listado 
para lenguaje FORTH que publicamos en la 
pagina 12 de Amstrad Especial n.° 3 o bien, para 
todos aquellos que no compraron esta revista, 
podran encontrarlo en la cinta n.° 17 de nuestra 
Serie Oro que podra ser solicitada por correo a 
nuestra redaction. 



















Movimiento de graficos por la 
pantalla, caracter a caracter 

Con la rutina de desplazamiento de pantalla caracter a caracter, 
que ofrecemos esta semana en nuestro Curso de Codigo Maquina, 
cualqmera puede realizar un «scroll» de pantalla de una manera mas 
rdpida y facil. 



u 

A A ace unos dfas veiamos en esta misma 
seccion una rutina que nos proporcionaba un 
scroll, pixel a pixel, de la pantalla cuando 
trabajabamos en modo 1. 

Este programa, a pesar de realizar un 
desplazamiento suave de la pantalla, posee dos 
grandes inconvenientes, uno de ellos es que 
unicamente podemos utilizarla correctamente 
cuando nos encontremos en un modo de pantalla 
determinado, en este caso el modo 1. 

El otro gran inconveniente es la gran lentitud 
de dicha rutina, ya que debe realizar gran 
cantidad de instrucciones para cada uno de los 
bytes que posee la pantalla, que son nada mas y 
nada menos que 16.384. 


Hoy realizaremos una rutina de 
desplazamiento de pantalla caracter a caracter, 
con lo cual lograremos un scroll mucho mas 
rapido, y ademas, sera utilizable para cualquiera 
de los modos de pantalla que posee el Amstrad. 

Sin embargo, se perdera en parte la suavidad 
que se conseguia con el anterior programa. 

Veamos en primer lugar cuales son los 
parametros necesarios para que nuestra rutina 
funcione correctamente. 

Dichos valores se deberan colocar en los 
espacios reservados para ellos en el programa, es 
decir, en los cuatro bytes que siguen a la rutina, 
que en el listado ensamblador vienen definidos de 
la siguiente manera: 
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ANCHO: DEFB 50 
LINEA: DEFB 2 
POSIC: DEFW #0505 

El primero de ellos, es decir, la variable 
“ANCHO”, indicara el numero de bytes en 
forma horizontal que seran desplazados por la 
pantalla; debemos tener en cuenta que en cada 
uno de los modos los caracteres estan formados 
por distinto numero de bytes. 

A continuacion se exponen los bytes que 
forman cada caracter en los distintos modos de 
pantalla. 

MODO 2.1 CARACTER. ..1 BYTE 

MODO 1.1 CARACTER....2 BYTES 

MODO 0.1 CARACTER....4 BYTES 

Se debe entender que este numero representa 
los bytes de cada caracter en forma horizontal, ya 
que en sentido vertical todos los caracteres estan 
formados por ocho bytes, independientemente del 
modo de pantalla utilizado. 

Otra de las variables del programa es la que 
esta representada por “LINEA”, esta indicara el 
numero de lmeas sobre las cuales se debe efectuar 
el scroll. 

Por ultimo, tenemos la variable “POSIC” que 
nos indicara a partir de que coordenadas de 
pantalla se desea efectuar el scroll. 

Esta variable debera tomar el valor #0000 para 
la esquina superior izquierda de la pantalla, se 
puede decir que toma los mismos valores que la 
funcion “LOCATE” de Basic, pero restando una 
unidad a la coordenada horizontal y vertical. 

Resumiendo y a modo de ejemplo, podemos 
decir que con los valores actuales que contiene el 
programa, se lograria un scroll a partir de las 
coordenadas 5,5 (6,6 para LOCATE) de una 
anchura de 50 bytes y una altura de dos lmeas 
(es decir, de 16 bytes de altura). 

Funcionamiento del programa 

Veamos ahora como funciona nuestro 
programa: en primer lugar se carga el registro 
doble HL con el contenido de la variable 
“POSIC”, y a continuacion se hace una llamada 
a una rutina del firmware: 

CALL #BC1A 

Como recordaremos, esta rutina nos devuelve, 
en el mismo registro HL, la direccion de pantalla 
correspondiente a dichas coordenadas. 

Posteriormente, cargamos en el acumulador la 
variable “LINEA”, introduciendola a 


continuacion en el registro B, para formar asf un 
bucle que nos indicara las filas sobre las cuales se 
debe efectuar el desplazamiento. 

Seguidamente se forma otro bucle, que se 
repetira ocho veces, ya que cada una de las filas 
de la pantalla esta compuesta por ocho bytes. 

En este bucle es donde se realizara el trabajo 
de scroll de pantalla. Para ello se pasan al 
registro doble DE, los valores actuales del 
registro HL, que es el que contiene la direccion 
de pantalla. 

LD D,H 
LD E,L 

Ahora cargamos en el acumulador el contenido 
de la direccion actual de pantalla, y lo 
preservamos para recuperarlo mas tarde: 


LD A,(HL) ;* 
PUSH AF ;* 



A continuacion incrementamos el registro HL, 
y cargamos en el acumulador el contenido de la 
variable “ANCHO”, que es la que indica el 
numero de bytes en sentido horizontal que deben 
desplazarse. 

INC HL 
LD A,(ANCHO) 

Seguidamente, debemos cargar en el registro 
doble BC, el numero de bytes a «scrollear»; para 
ello cargamos B con cero y en el registro C 
cargamos el contenido del acumulador, con lo 
cual se puede efectuar la operacion de 
movimiento del bloque de pantalla. 

LD B,0 
LD C,A 
LDIR 
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Una vez hecho esto, debemos recuperar el 
contenido del acumulador que se habfa 
preservado anteriormente y cargarlo en la 
direccion a la que apunta el registro doble DE, es 
decir, el ultimo byte de la lfnea desplazada. 

POP AF 
LD (DE),A 

Con ello se consigue el efecto de rotacion de la 
pantalla; es decir, que lo que desaparece por la 
parte izquierda, se recupera por la parte derecha. 

En el caso de que se quiera efectuar un scroll 
con perdida del contenido de la pantalla, 
unicamente deberfamos suprimir del listado del 
programa estas dos ultimas lfneas, junto con la 
marcada con un asterisco 


Solo con programas muy depurados 
y en Codigo Maquina, es posible 
mover bloques de pantalla con un 
efecto que resulte real. 


Una vez producido el desplazamiento en una 
llna, se deberfa recuperar la direccion de pantalla 
anterior, a la cual se debera sumar el valor 2048, 
para asi obtener la direccion del siguiente byte de 
pantalla en sentido vertical. 

POP HL 
LD DE,2048 
ADD HL,DE 

Cuando se haya producido el scroll de los ocho 
bytes que contienen cada una de las lfneas, 
deberfamos calcular la direccion de la siguiente 
linea de pantalla. 

Esto lo haremos recuperando la direccion 
inicial de la anterior linea, y sumandole el valor 
80. 

POP HL 
LD DE,80 
ADD HL,DE 

Una vez finalizado este ultimo bucle, se habra 
conseguido el desplazamiento de la parte de la 
pantalla dada en los parametros iniciales, un byte 
hacia la izquierda. 

Como se podra comprobar, la velocidad de 
ejecucion de esta rutina es realmente rapida, si 
tenemos en cuenta que la pantalla de nuestro 
Amstrad esta compuesta por un elevado numero 
de bytes. 

Dada la gran versatilidad de esta rutina, ya 
que podemos elegir la zona de pantalla a 
desplazar, asf como sus dimensiones y las 
coordenadas iniciales, se podrfa utilizar como 



200 POP AF 

210 LD (DE),A 

220 POP HL 

230 LD DE,2048 

240 ADD HL.OE 

250 POP BC 

260 DJNZ BUC 

270 POP HL 

280 LD 06,80 

290 ADO HL,DE 

300 pop ec 

310 DJNZ BUC 1 

320 RET 

330 ANCHO: DEFB 50 
340 LINEA: DEFB 2 
350 POSIC: DEFW 10505 



ayuda en cualquier programa Basic o en Codigo 
Maquina que deseemos realizar. 

Como podemos ver, aquf unicamente estamos 
estudiando el scroll hacia la derecha, pero 
realmente tambien nos puede ser necesario un 
desplazamiento hacia la izquierda. 

Pues bien, esta tarea se la reservamos a todos 
los que sigan este Curso de Codigo Maquina, 
aunque sf daremos alguna pista que muchos 
estaran adivinando. 

Como hemos visto, nuestra rutina utiliza una 
instruccion de desplazamiento de bloques como 
es: 


LDIR 


Por tanto, para efectuar el mismo trabajo, pero 
en sentido contrario, deberemos utilizar la 
instruccion: 


LDDR 

Teniendo en cuenta que en este caso 
deberemos indicar en los registros doble HL y 
DE, la direccion mas alta a partir de la cual 
deseamos trasladar los datos. 

Por hoy no resta nada mas por decir. 
Unicamente, desear suerte en la confection de la 
rutina de desplazamiento a la derecha de la 
pantalla. 
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Esta es la oferta del ano, 
todo un ano de AMSTRAD 
Semanal por solo 
6.175 ptas. 50 numeros 
que te salen a un precio 
increible: 123 ptas. cada 
uno. 




Aprovechate. Una oferta 
asisolo sepresenta una 
vezalaho. 

(oferta valida solo para Esparia. 
hasta el 28 de febrero de 1987). 
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